


THE NPS LISP 1.5 VERS 1 PROGRAMMING 
SYSTEM 




United States 
Naval Postgraduate School 




THESIS 



THE NPS LISP 1.5 VERS 1 
PROGRAMMING SYSTEM 
by 

John C. Pilley 



April 1970 



Tki6 document ha6 been appAaved Ion pub-tec nc- 
Z&a6& and talc; Ut6 di6tAA.butU.on U6 untanited. 



.L u A O J 




library 

NAVAL POSTGRADUATE 5CHOO.fi 
MONTEREY , CALIF. 93940 X" 



THE NPS LISP 1.5 VERS 1 



PROGRAMMING SYSTEM 



by 



John C.^Pilley 

Major, United States Marine Corps 
B.A., Vanderbilt University, 1961 



Submitted in partial fulfillment of the 
requirements for the degree of 

MASTER OF SCIENCE IN APPLIED MATHEMATICS 

from the 

NAVAL POSTGRADUATE SCHOOL 
April 1970 



s. J 

^ ty 

c- I 

ABSTRACT 

The design and implementation of the NFS LISP 1.5 VERS 1 program- 
ming system is described. NPS LISP 1.5 VERS 1 is a complete orogram- 
ming system built around the original implementation of LISP 1.5 on the 
IBM 360/67 computer at the Naval Postgraduate School. The new version 
includes a Supervisor and an Editor, as well as the original LISP 
Interpreter. The VERS 1 system is written in PL/I for time-snaring 
operation on the IBM 360/67 computer. 
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I. INTRODUCTION 



The NPS LISP 1.5 VERS 1 System is an extension of NPS LISP which 
was developed at the Naval Postgraduate School by Lieutenant Donald G. 
Gentry, USN, and Maior John C. Pilley, USMC, and documented in Lieuten- 
ant Gentry's thesis [Ref. 1], dated December 1969. The NPS LISP system 
was an "on-line interactive version of LISP for the IBM 360/67 computer", 1 
and was written in PL/I to run under the CP/CMS time-sharing system. 

(The CP/CMS time-sharing system is described fully in Reference 5.) 

NPS LISP 1.5 VERS 1 system consists of three modules. 

These modules are: 

1. the Supervisor, 

2. the Editor, 

3. the Interpreter. 

The Interpreter module of the extended system is the original NPS LISP 
system without its supervisor. The Supervisor module is an expansion of 
the NPS LISP supervisor and includes all the latter's functions, while 
the Editor module is an entirely new entity, unique to the VERS 1 system. 

This thesis describes the expansion of NPS LISP into the system 
named NPS LISP 1.5 VERS 1. The development of those features of the 
expanded system which are new or revised is described in detail. It is 
assumed that the reader has access to Reference 1, since the description 
of the Interpreter will not be repeated here. A knowledge of PL/I is 
desirable so that the reader may interpret the statements in the VERS 1 
listing. 



^D. G. Gentry, An Implementation of LIPS 1.5 for the IBM 360/67 
Computer (Monterey, 1969), p. 9. 
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As has been noted, such a supervisor incorporates no housekeeping 
functions. If it were to be expanded to include such housekeeping chores 
as an editor and an I/O package, appropriate LISP functions would have to 
be written and incorporated as permanently defined functions in the LISP 
system. In general this poses no problems. For example, Q-32 LISP [Ref. 

3] uses LISP functions for I/O. The elaborate editor of BBN LISP [Ref. 

4] also uses LISP functions for its routines. However, these systems were 
coded in their particular machine language, and hence supervisor functions 
written in LISP were natural. 

NPS LISP was coded in PL/l. This was done because PL/I, being a 
higher level language, "...provides major advantages over a system writ- 
ten in machine code: (1) alterations to the system may be easily made; 

(2) the system may be implemented quite easily on another computer having 

3 

PL/I compiler; and (3) the system is self-documenting to some extent." 
Another important reason for writing the supervisor and editor in PL/I is 
that most of the LISP memory is still available to the user to store 
list structures and the numbers his programs might generate. Thus a mini- 
mum amount of LISP free storage is taken up by the "nucleus" of permanent 
LISP functions. 

After having decided to write the expanded supervisor (and editor) 
in PL/l, the next task was to determine just what capabilities to in- 
corporate in the expanded system. 

Much of the motivation for features finally incorporated into the new 
system came from practical experience gained on the terminal with the 
CP/CMS time-sharing system. This motivation, as well as other influences 
is discussed in the sections that follow. 



Gentry, p. 



50. 
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II . THE SUPERVISOR 



A. A GENERAL DISCUSSION OF LISP SUPERVISORS 

The supervisor of any LISP system must perform certain basic func- 
tions. First, it must read in a functional expression (S-expression) 
and its arguments (also an S-expression). Second, it must apply the 
function to the arguments to obtain a value, and, third, it must print 
that value. The basic LISP supervisor is a routine which loops continu- 
ously, while LISP is active, performing these functions. Disregarding 
any system “housekeeping 11 needs, this basic supervisor meets the minimum 
requirements of a LISP system. 

The NPS supervisor was essentially identical to tne supervisor des- 
cribed above. It looped continuously until detecting an *END LISP' input, 
which caused it to terminate. The NPS LISP supervisor was a routine 
written in PL/I, though, in general, a LISP supervisor is a LISP func- 
tion called EVALQUOTE. An example of a LISP 1.5 coding of EVALQUOTE follows 
which is taken from Weissman [Ref. 2]. The variables SI and S2 are the two 
S -expressions that the supervisor reads. 

(EVALQUOTE (LAMBDA ( ) (PROG SI S2 ARGS) 

A (TEREAD) 

(SETQ ARGS NIL) 

(SETQ SI (READ)) 

(SETA S2 (READ)) 

B (COND ((NULL S2) (GO C))) 

(SETQ ARGS (CONS (LIST (QUOTE QUOTE) ( CAR S2)) ARGS)) 

(SETQ S2 (CDR S2)) 

(GO B) 

C (PRINT EVAL (CONS SI (REVERSE ARGS)))) 

(GO A) ))) 2 



2 

Clark Weissman, LISP 1.5 Primer , (Belmont, 1968), p. 131. 
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1 . 



IBM 7090 LISP Supervisor 



In 7090 LISP the EVALQUOTE function is called the interpreter, 

while the supervisor (or monitor) is a separate function called the Over- 

4 , . 

lord. The 7090 Overlord handles the I/O, maintains the system s files 

and handles dumps. Since 7090 LISP receives punched cards as input, the 

overlord is essentially a batch processing supervisor. Its main function 

seems to be that of handling of the five tape drives the 7090 system uses. 

These tapes are listed here by name and function. 

SYSTAP Contains the System 

SYSTMP Receives the Core Image 

SYSPIT Punched Card Input 

SYSPOT Printed Output 

SYSPPT Punched Card Output 

After the LISP system is called by the LISP loader (two special 
cards), the Overlord takes over and initializes the system. From then on 
the Overlord is in control, checking each card in the input stream to see 
if it is an Overlord direction card. These Overlord cards direct the 
Overlord to perform some specific function or else tell it that a LISP 
deck (called a packet of doublets) follows. The packet of doublets is a 
deck of pairs of S-expressions for the interpreter. The Overlord con- 
tinues as described above until it reads a 'FIN* Overlord card, at which 
time it halts. 

2. 0-32 LISP Supervisor 

The 0-32 LISP system is a compiler-oriented rather than an 



J. McCarthy, and others, 
1962), p. 80. 



LISP 1.5 Programmer’s Manual (Cambridge, 
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Interpreter-oriented language. When run under time -sharing, the user 
sees two modes of operation: the Executive mode and the Object Program 

mode. ^ The Executive mode is the mode used to communicate with the time- 
sharing executive and is analogous to CMS when running LISP under CP/CMS. 
The Object Program mode is analogous to the NPS LISP 1.5 VERS 1 Super- 
visor; therefore, it is this mode we wish to examine here. 

The Q-32 LISP supervisor (accessible in the Object Program mode) 
is a function *SUPV "which calls for two S-expressions to be read from 
the teletype, terminates the input buffer, then calls for (PRINT (*EVALQT 
X Y (QUOTE*FUNC))) and loops back to call for two more S-expressions. 

The prefix * indicates that the function is a basic system function not 
normally useful to the user. The arguments X and Y of *EVALQT are the 
two S-expressions read from the teletype. Thus, despite differences such 
as being compiler-oriented, the Q-32 LISP supervisor is basically similar 
to the general supervisor described by Weissman [Ref. 2]. The function 
*EVALQT, of course, is EVALQUOTE though *EVALQT has three arguments (one 
being required by the Compiler). 

Rather extensive I/O is possible by using special LISP I/O 
functions. The Supervisor handles these functions in the same way it 
handles the basic LISP functions. The function SAVE (n) , for example, 
dumps LISP core in the same manner as the DUMP$ command of the NPS LISP 
Supervisor (See Section II. C. 3). Thus every Q-32 LISP function is a 
supervisor command. 



^S. L. Kameny, LISP 1.5 Reference Manual for Q-32 (Santa Monica, 
1965) p. 7. 

^Ibid , p. 8. 

^Ibid, p. 64. 
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For further discussion of the Q-32 LISP supervisor see Section 



4.3 of Reference 8. 

3. BBN LISP Supervisor 

BBN 940 LISP is a version of LISP implemented on the SDS 940 
computer by Bolt Beranek and Newman, Inc., [Ref. 4]. It is primarily of 

interest here because of its Editor, which will be discussed in Section 

III. 

The BBN LISP Supervisor is called EVALQUOTE and performs the 
standard functions of reading S-expression doublets and executing them. 
Input-Output functions, file manipulation, and editor commands are all in 
the form of S-expressions doublets and are all handled by EVALQUOTE. 

Thus, as with Q-32 LISP, all LISP commands are supervisor commands. 

4. General Functions and Capabilities of the NPS LISP 1.5 VERS 1 

Supervisor 

The NPS LISP 1.5 VERS 1 Supervisor is a PL/I program which 
performs the followsing tasks: 

1. Calls the LISP initializer to start the system, 

2. Handles the SPECIAL (automatic) OPTIONS requests, 

3. Sets and supervises the two user-oriented modes of 
system operation (i.e., Editor mode or Interpreter 
mode), switching the system from one mode to the 
other as the user requests, 

4. Handles user requested dumps, 

5. Loads specialized system files on request, 

6. Calls the Garbage Collector at the request of the 
user, 

7. Handles the close-out routine when a LISP run is 
terminated by the user. 

These functions, and the Supervisor language, are discussed in 
the sections that follow. The VERS 1 Supervisor is similar to those 
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described above, except that housekeeping chores are peculiar to the 
Supervisor. This eliminates the necessity of the VERS 1 system supporting 
a number of specialized LISP functions. 

In conclusion, I wish to point out that though the ’Overlord 1 
of 7090 LISP is essentially a batch processing monitor, it nevertheless 
does for 7090 LISP what the VERS 1 Supervisor does for NPS LISP. It is 
therefore fair to say that the NPS LISP 1.5 VERS 1 Supervisor more closely 
resembles the 7090 LISP system than any of the other systems studies. 

Thus both the VERS 1 Supervisor and Interpreter use the 7090 system as 
a pattern. 

The terminology * S-expression doublet* has been borrowed from 
the description of 7090 LISP [Ref. 7] and will be used in this thesis. 

The description of the VERS 1 Supervisor begins with the following dis- 
cussion of the automatic features. 

B. AUTOMATIC FEATURES OF THE VERS 1 SUPERVISOR 

Experience gained from work on the terminal, using CP/CMS, led to 
the incorporation into the Supervisor of two optional automatic features. 
What follows is a description of these features and a discussion of the 
reasons for their inclusion in the VERS 1 system. 

It often happens that a user must make so many corrections, dele- 
tions and additions to his input string, that it becomes almost unintel- 
ligible. This fact motivated the first automatic option, the printback 
feature. This feature prints back the string the LISP Interpreter has 
actually received and numbers the first line of each doublet. 

Another feature which seemed desirable, due to sometimes too fre- 
frequent CP "crashes", was an automatic LISP storage saving routine. 

The term "crash" is a popular but descriptive term which refers to an 
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abrupt halt in service due to a malfunction in the time-sharing system. 
The CP time-sharing system is not immune to such crashes. Without an 
automatic dump routine a user would have to reinitialize the LISP system 
and start over again after each crash. This could be very frustrating 
and time consuming. The AUTOSAVE feature was therefore incorporated and 
is described below. Either feature can be abled or disabled at any time 
after initialization of the system. 

Immediately after the system has initialized, the question M SPECIAL 
OPTIONS?** will be typed on the terminal. This is the only time this 
explicit question will be asked. If neither option is desired, the user 
should respond by typing * , N*' or **NONE*\ The default condition for a 
**NONE" response is autosave and printback disabled. 

If the user wishes to change his current options, he can do so by 
using the OPT$ command. This is a Supervisor command and is discussed 
here since it is used exclusively with the automatic options. The Super- 
visor returns control to the Interpreter after honoring the OPT$ request. 

1 . OPT$ command 
OPT$ list 

This command causes the supervisor to change the 
current special options listed in **list.** Options 
in **lis t ** (if more than one) must be separated by 
at least one blank. If the **list*' is missing, the 
command is ignored. (The commands *OPTION$* or 
' OPTIONS$ 9 are also valid. 

2. PRINTBACK option 
P ( NP ) 

The *P* command causes each S-expression doublet 
received by the Interpreter to be printed back 
with its sequence number. *NP I , typed in the 
'* 1 i s t ' * of the OPT$ command disables the print- 
back feature. 
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3. 



AUTOSAVE option 



AUTOSAVE f =n ] (NAS) 

The autosave feature, which is called by this command, 
automatically dumps LISP memory into file AUTOLISP 
every 5 doublets unless a different line parm value 
has been specified. AUTOLISP Is erased during the 
closeout routine called by the user typing ’END LISP*. 

The bounds on the line parm, n, are: l<n-20. *NAS' 

typed in the M list of the OPT$ command erases the 
file AUTOLISP and disables the autosave feature. The 
autosave feature also creates an exact copy of file 
LISPTEXT (the working file of the Editor) each time 
it dumps the LISP memory. This copy is a file called 
LISPTEMP. (For further discussion of these files 
see the following subsection). 

If a CP crash occurs, the version of AUTOLISP and LISPTEMP created 
by the last autosave dump, will remain, unaffected, on the user’s disk. 

The user will see a message, reminding him of the existence of these 
files when he reinitializes the LISP system. The user should load these 
files at the first communication from the Interpreter or they will be 
automatically erased. The Interpreter tells the user it is ready by 
displaying 1 CALL EVALQUOTE, ARGS 1 . 

Q 

The PL/I file handling routine IHEFILE is used to create the files 
LISPTEMP, AUTOLISP, and DUMPLISP. For this reason it is briefly mentioned 
in the discussion that follows. 

a. Files AUTOLISP and DUMPLISP 

The PL/I file handling routine IHEFILE is described fully 
in Reference 5. For our present requirements it is enough to know that 
this routine creates a file on the user’s disk by storing an 80 character 
buffer in the file each time the routine is called in the PL/l program. 



8 

CP/CMS User’s Guide (Revised 6.69), Naval Postgraduate School, 
Computer Facility (Monterey, 1969), p. 385. 
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Since this routine is used to create files AUTOLISP and DUMPLISP, an 

immediate problem presented itself. How do we efficiently convert binary 

fixed data (the LISP memory is in this form) into a character string? 

The method chosen for the NPS LISP 1.5 VERS 1 system was to use the com- 

9 

paratively fast UNSPEC function of PL/l to put the internal representa- 
tion of each word of LISP memory into a 4 character substring of the buf- 
fer. This stores 20 words of FSTOR each time the IHEFILE routine is 
called. Since LISP core is initially set up as a sequentially linked 
list (i.e., the cells are an array called FSTOR, linked by storing in 
each word the array subscript of the next word), there is usually a 
sizeable percentage of LISP memory which consist of adjacent cells con- 
taining numbers in sequence (see Fig. 1). This is especially true if 
the Garbage Collector has not been used and/or the user's program is not 
extremely large. Therefore, to increase the speed of the dump and de- 
crease the size of the storage area required for file AUTOLISP, the fol- 
lowing structure for file AUTOLISP (as well as file DUMPLISP) was adopted. 

The structure of the file AUTOLISP can be thought of in 
two ways. One way is to think of it as a set of 80 character strings, 
each of which was stored from the buffer CARD-BUFFER by one call to the 
IHEFILE routine. (See Fig. 2, Physical Structure.) Thus, to access 
an item, one needs the character string number and the location of the 
item in the character string. The other way of viewing AUTOLISP is as a 
seauential storage area where an item is accessed by knowing its sequen- 
tial address. (See Fig. 2, Sequential Structure.) Both representations 
of AUTOLISP are used by the dump routine. 



9 

IBM System/360 Reference Manual , International Business Machines 
Corporation (1968), p. 237. 
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- Keywords are shaded. 

- The word adjacent to 
the keyword contains 
the address of the first 
word of the FSTOR sequence. 



FIGURE 3 

KEYWORD SYSTEM OF FILE AUTOLISP 
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The first word of AUTOLISP (bytes 1-4 of the first 80 



character string) is called a Keyword. The first halfword of a keyword 
contains the sequential address of the next keyword. (The "sequential 
address", as opposed to a "physical address", refers to a sequential 
location of a word.) The second two bytes of a keyword contain a number 
C. When the dump routine encounters more than two adjacent words in 
FSTOR which contain sequential numbers, (as for example, FSTOR(IOOO) 
FSTOR(lOOl) FSTOR(1002) in Fig. 1), the next available sequential address 
becomes the address of a new keyword and is stored in the first two bytes 
of the last keyword. The first word of the FSTOR sequence (FSTOR(IOOO) 
in the example above) is then stored following this new keyword. The 
number of words in the sequence, C, is stored in the last two bytes of 
the new keyword. (For clarification see Fig. 3). In this way storage 
time and area can be minimized. Of course if most of LISP memory is 
active or if it has been reshuffled due to numerous garbage collections, 
the advantages of this system will be minimized. 

A discussion of the other files affected by the dump 
routine follows. 

b. Files LISPTEXT and LISPTEMP 

File LISPTEXT is the file used by the Editor. Each doublet 
input by the user is stored in LISPTEXT in sequence with its sequence 
number in the first byte of the first line. The input is stored, starting 
with line 2 of LISPTEXT. The first line of LISPTEXT is used for two pur- 
poses, storing certain values which are required by the load routine and 
storing a code-byte (C-byte) used by the Supervisor. The C-byte is the 
first byte of the first line. The possible values of the C-byte and 
resulting Supervisor actions are given in Table I. 
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The values stored on line 1 of file LISPTEXT are stored 



there by the DUSAVE PL/l routine called each time a dump occurs. (DUSAVE 
is called by both the autosave feature and by the DUMP$ command.) These 
are the values of certain PL/l variables which are listed in Table II* 

The C-byte is set by various Supervisor routines. The 
PL/l listing of these routines can be found in APPENDIX C. (The major 
PL/l modules which make up the VERS 1 system are LISPA, LISPB, LISPC, 

LIS PD , LISPE, LISPF, LISPG, and LISPP. Each module is listed in AP- 
PENDIX B with its major function.) The C-byte is set to the value * 1 1 
by: 

1. The close-out procedure if its value is '2* when that procedure 
is entered. The close-out procedure is located in LISPA fol- 
lowing the lable TERM. 

2. The procedure which handles the 'OPT$ NAS 1 input. This pro- 
cedure disables the autosave feature and is located in LISPA 
following the label SCN1. 

3. The file LISPTEXT handler, when the first S-expression doublet 
is entered and the autosave feature has not been enabled. 

This routine follows entry point TEXTWRK in LISPA. 

The C-byte is set to *2* by two routines. The first is the routine which 
processes the 'AUTOSAVE 1 command. This procedure is located in LISPA 
following the label SCN1. The second is the TEXTWRK routine of (c) above. 
This routine will set the C-byte to '2' when the first doublet is input 
if the autosave option has been chosen. The value '3' is set by the 
routine which processes the DUMP$ command. This routine is located in 
LISPA following the label CMD. 

Since the file LISPTEXT contains the current C-byte value, 
some version of it resides on the user's disk at all times. The message 
telling of the existence of file LISPTEXT actually refers to the exist- 
ence of file LISPTEMP, an exact copy of LISPTEXT at the time of the dump. 
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TABLE I 



FILE LISPTEXT FLAG VALUES AND 
CORRESPONDING SUPERVISOR ACTION 



C-byte VALUE MEANING SUPERVISOR ACTION 



1 



Previous exit from LISP reinitializes 
system was normal and LISPTEXT 

no dump was requested 



2 



Previous exit from 
LISP system was ab- 
normal with AUTOSAVE 
option enabled. 



Prints message: 

" FILES LISPTEXT 

AND AUTOLISP 
EXIST — " 



3 



A dump was requested 
before previous exit 
from LISP system 



Prints message: 

" — FILES LISPTEXT 
AND DUMP LI ST 
EXIST — " 



any other 
value 



File LISPTEXT does not Initializes file 
exist in a usable form LISPTEXT 
on the user's disk. 



TABLE II 

PL/I VARIABLES STORED IN FILE LISPTEXT 



PL/I VARIABLE 


FUNCTION 


POSITION (f ,e) * 


L COUNT 


S-expression doublet counter 


(2,4) 


CARDNOI 


Next available line in LISPTEXT 


(6,4) 


ESTART 


Pointer used by the Editor 


(10,4) 


EFSTOR 


Last cell in Free Storage 


(14,4) 


FREE 


First cell in Free Storage 


(20,4) 


BNUM 


Next available cell for numbers 


(30,4) 



* Location in character string: f=position of first 
character of substring, l=length of substring 
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Thus, though the user may 'LOADS LISPTEXT', the file that is actually 
loaded is LISPTEMP. The only time confusion may occur is if the user 
wishes to edit the LISPTEXT he has dumped, using the CMS editor (See 
Ref. 5). He must then be sure to 'EDIT LISPTEMP DATA'. LISPTEMP does 
not exist on the user's disk if no dump has occurred. 

The foregoing discussion of the VERS 1 special files con- 
cludes the subsection concerned with the automatic features of the Super- 
visor. These files will be mentioned frequently in the sections that 
follow. The next subsection describes the various Supervisor commands. 

C. SUPERVISOR COMMANDS 

As pointed out in Section II. A, all Supervisor commands end in the 
symbol '$'. The user issues all Supervisor commands in response to the 
standard "ready" of the interpreter. (See Section II. B. 3.) The syntax 
analyzer, entry point NREAD of LISPC, scans the first S-expression, 
recognizes that the first S-expression is an atom ending in a '$' and 
alerts the Supervisor. The Supervisor then takes control, scans the com- 
mand and takes the appropriate action. The Supervisor commands and their 
effects are listed below. The PL/I routines that implement these com- 
mands are located in LISPA unless otherwise specified. (See APPENDIX C 
for a listing of LISPA.) 

1. OPT$ See Section II.B.l. 

2. EDIT$ 

EDITS 

In response to the EDITS command, the supervisor gives 
control to the LISP Editor. The Editor will respond by 
typing 'EDIT LISP'. It is then ready for an input from 
the user. (The command ' E$ ' is also valid.) 

3. DUMPS 
DUMPS 
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The DUMP$ command tells the Supervisor to dump LISP 
memory into file DUMPLISP which is erased automatically 
by the next DUMP$ command or after it is loaded by the 
LOAD$ command. 

The file LISPTEXT is also saved by the DUMP$ command as well as the 
values of the PL/I variables ESTART, FREE, BNUM, LCOUNT, EFSTOR, and 
CARDNO 1 which are needed to restore memory (See Section II.B.3.(b)). 

The DUMP$ routine uses the PL/I procedure DUSAVE, an entry point in 
LISPF, which is also used by the AUTOSAVE option. (See APPENDIX C.) 

Since files DUMPLISP and AUTOLISP have the same structure, the dis- 
cussion of file AUTOLISP in Section II. B. 3. applies also to file DUMPLISP. 

Upon initialization of the LISP system, if DUMP$ was used on the pre- 
vious run (and hence files DUMPLISP and LISPTEMP are on the user's disk), 
the user will be warned of this fact by a message (See Table I). 

4. LOAD$ 

LOAD$ filename [filename] 

The LOAD$ command loads "filename" into LISP memory 
except when "filename" is LISPTEXT. In this case 
LISPTEMP is loaded and renamed LISPTEXT, If more 
than one file is loaded, the filenames must be separ- 
ated by at least one blank. During the load, a 
message will be displayed, telling which file is 
currently being loaded. 

5. QUIT$ 

QUIT$ 

The QUIT$ command causes the Supervisor to take control 
from the interpreter, delete what has been typed of the 
S-expression doublet being input, reinitialize the 
Interpreter and return control to it. The Editor is 
also told to remove the same input from LISPTEXT, 

(Q$ is a recognized abbreviation). 

6. COUNT $ 

COUNT $ 
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The COUNT$ command causes a count to be made of the 
number of free cells in LISP memory* The result is 
a message from the Supervisor, CELLS IN FREE STORAGE: n 
CELLS AVAILABLE FOR NUMBERS: m 

where n and m are decimal numbers. 

7. COLLECT$ and COLLECTN$ 

COLLECT$ 

This is the call to the Garbage Collector, which will 
collect in both main storage and number storage. For 
discussion of the Garbage Collector and LISP memory 
structure see Section IV. B. 

COLLECTN$ 

In response to the COLLECTN$ command the Garbage 
Collector will collect only in number storage. 

This concludes the discussion of the Supervisor. The following 

section describes the NPS LISP 1.5 VERS 1 Editor. 
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III. THE EDITOR 



A. EDITING LISP PROGRAMS IN AN INTERACTIVE ENVIRONMENT 

The editor of the CP/CMS system is one of that system's most used 
features. This is natural since one of the prime advantages of an inter- 
active system is the ability to correct mistakes as soon as they are 
detected or to make program changes in an environment which allows al- 
most immediate analysis of their effects. These factors motivated the 
design of NPS LISP 1.5 VERS 1 Editor. Other systems studied were 7090 
LISP, BBN LISP, Q-32 LISP and the implementation of the Georgia Tech 
LISP interpreter at the University of Washington. It was evident that 
little had been documented in the field of LISP editors. Of those studied, 
the BBN LISP editor was the only system with an editor. It is summarized 
below. 

A fundamental difference between the NPS LISP 1.5 VERS 1 Editor and 
the BBN system must be emphasized. The editors of all LISP systems have 
S-expressions as the data on which they operate. The difference between 
the VERS 1 Editor and the others is found in the structure of the S- 
expressions. The other systems operate on S-expressions which are stored 
as lists (their tree structure). The editor commands of these systems 
are LISP functions which traverse S-expression trees and "edit" using 
LISP primitive functions to alter the structure of these trees. There 
are certain obvious advantages to this type of editor. Some of these are 

- all editor commands are LISP functions, 

- the structure of data for the editor is the same as for the 
the supervisor and interpreter, 

an operation on an S-expression directly alters the structure 
of that S-expression. 
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The VERS 1 Editor operates on the material stored in file LISPTEXT. Here 
S-expression doublets are stored as character strings, the form in which 
they were input. The VERS 1 Editor commands are not LISP functions; 
they make up a separate language. Finally, an operation by the VERS 1 
Editor alters the character string structure of a doublet in LISPTEXT, 
not its list structure in LISP memory. Hence the doublet must be "re- 
computed" by the Interpreter after editing, for the editing to have ef- 
fect. 

Before going into detail on the VERS 1 Editor, it would be instruc- 
tive to look at the BBN LISP editor. This editor is rather sophisticated 
and the next subsection is concerned exclusively with some of its fea- 
tures. 

1. BBN LISP Editor 

The BBN LISP Editor is an extensive and distinct subsystem 
of the BBN LISP system. It "allows rapid, convenient modification of 
list structures. Most often it is used to edit function definitions, 
often while the function itself is running. It has many functions, 
allowing the user a choice of ways to accomplish a particular editing 
requirement. The editor commands are short, usually consisting of a 
single character. 

The BBN LISP Editor operates directly on list structure. 
The particular list that is to be edited is indicated in the call to the 
editor. For example, 

EDITF (APPEND) 

*%. G. Bobrow, and others. The BBN 940 LISP System (1967), p. 40 
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would bring the editor on line and specify the function definition of 
APPEND as the list to be edited. There are four different commands for 
calling the editor, depending on the type of list structure to be edited. 
The basic function, for editing S-expressions , is the function EDITE„ 

The other three are 



t. 


EDITV, 


for 


editing 


values 


2. 


EDITF , 


for 


editing 


function definitions 


3. 


EDITP, 


for 


editing 


property lists. 



These functions confine their attention to only one list at a time, 
usually the sublist of some major structure. Changes may be made only 
to this particular sublist. "Commands thus fall naturally into four 
classes: moving around the last structure; making changes in the current 

list; printing parts of the list being edited; and entering and leaving 

u It ll 

the editor. 1 

a. List Traversal Commands 

List traversal is accomplished by typing a number n to 
indicate the nth level from the top of the main list structure which is 
to be examined. A '-n' examines the nth sublist starting from the end 
of the main structure and counting back n sublists. The command t re- 
establishes the top level of the main structure as being current. To 
traverse from a current sublist one can use the command (NTH n) which 
uses the current sublist as a starting place and causes the nth sublist 
from that point to become current. The command f P* is used to print the 
current list. If the current list is the main structure, a LISP represen- 
tation of the entire structure will be printed. The command (F e) searches 



11 

Ibid, p. 41. 
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for an occurrence of e^ in the current list, where £ is any S-expression. 
The number 0 causes the previously current list to become current. These 
commands allow great flexibility in traversing list structures. Even 
greater flexibility is obtained by a function MARK which allows the user 
to mark the current state. He may then return later by typing which 
returns him to the last mark without erasing the mark or by which 

does the same thing, but erases the mark. 

COPY and RESTORE are the last two list traversal commands 
which will be specifically mentioned. Since every change made is made 
directly to the internal list structure, the COPY command can be issued 
before changes are made. This copies the "current state of the edit", 
so that the user may later restore the system to its previous state by 
issuing a RESTORE command. 

b. Modification Commands 

The capabilities of inserting, replacing and appending 

list structures is provided by the three commands, (-n ei,...,e ), 

L m 

(n e ,...,e ) and (N e.,...,e ) where e t ,...,e are S-expressions. 

I m I m 1 m 

The *n 1 s are integers which indicate the nth sublist from the current 
one. Thus (-1 ABC) would insert ABC before the current sublist, and 
(2 ABC) would replace the 2nd sublist from the current sublist with ABC. 
The f N f is used to append S-expressions. To delete, use the replace 
command with no replacement S-expression specified. The command (R e^ e^) 
replaces all occurrences of list e^ with e^ in the current list and all 
sublists. 

Direct alteration of the list structure itself is also 
possible. This is done with commands such as LO (take Left paren Out), 

BO (take Both parenthesis Out), (RO n m) and (RI n m) . The last command 
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(RI a m) will be illustrated. Consider the list (A B(C D E) F G) . If 
we want to bring the D and E up to the level of A B F G and leave (c) 
as a sub list, we could use 

(RI 3 1) 

which means move the Right paren at the end of sublist 3 In to sub list 
3 and place it after sublist 1 of sublist 3. The results is the list 
(A B (C) D E F G). 

c. Printing Commands 

The command P which prints the current list, showing only 
one level of nesting, was presented in subsection a. To print a selected 
sublist without changing the current state of the edit, a (P n) command 
could be used. This would print the nth sublist from the current one. 

(P n m) prints the nth sublist to m levels of nesting. Finally, (E c) 
prints the sublist c without changing the state of the edit. 

The BBN LISP editor is a highly sophisticated subsystem. 

A good knowledge of LISP 1.5 is required to use it. It has the dangers 
which result from being able to directly alter its memory, but the ad- 
vantages of speed and versatility far outweigh any disadvantages. 

A general discussion of the NPS VERS 1 Editor follows, 

2. NPS LISP 1.5 VERS 1 Editor 

The NPS LISP Editor performs the following functions: 

1. Prints S-expression doublets, 

2. Changes the character string representation of 
S-expressions, 

3. Recomputes specified doublets, 

A. Lists atoms, functions, or special forms from 
OBLIST, 

5. Deletes atoms and functions from OBLIST. 
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All but the last two of these functions depend upon LISPTEXT. 
The last two functions are performed by traversing OBLIST. 

Every doublet entered into the VERS 1 system is stored in 
LISPTEXT. The Editor accesses a particular doublet by traversing a list 
to locate that doublet's sequence number. The pointer to the head of 
this list is the PL/I variable ESTART (See Table II). Each doublet 
entered by the user is assigned a unique number. This number is stored 
in the CAR of a word in FSTOR whose CDR is another word in FSTOR. The 
CAR of this second word is the line number in LISPTEXT of the first line 
of the doublet. Thus, to find doublet number, n, the Editor traverses 
the ESTART list, starting at ESTART. If CAR (ESTART) is not equal to n 
then it checks CADDR (ESTART) , and so on until n is located. The required 
line number in LISPTEXT is the CADR of this cell. To operate on this 
doublet, the Editor would then read this line into CARD-BUFFER using the 
IHEFILE routine. An obvious disadvantage of this system is that only 
part of a doublet can be worked on at any instant. Thus the CHANGE func- 
tion requires that ail changes be made, one line at a time, not allowing 
part of a field to be on one line while the remainder is on the next. 

When all changes are made, the changed doublet must be recomputed before 
the changes have any effect upon the LISP list structure. This is one 
advantage, since ill-conceived changes will not take immediate effect, 
as in the BBN Editor. 

The commands which make up the language of the NPS VERS 1 
Editor are listed and discussed in the section that follows. 

B. EDITOR COMMANDS 

The Editor initially tells the user it is on-line by typing the 
message 'EDIT LISP'. The Editor will remain on-line until it receives 
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the 'RET* command or the ’END LISP 1 command. Any user error in issuing 
an edit command will result in one of two responses by the Editor. 

Either the Editor will ignore the faulty edit command and wait for another 
input, or it will type an error message and wait for another input. See 
APPENDIX A for the error messages. The Editor commands are discussed be- 
low. 



1. RET (RETURN ) 

RET (RETURN) 

The RET command returns control to the Interpreter 
through the Supervisor. When this is done the user 
will see the standard Interpreter challenge, 

’CALL EVALQUOTE, ARGS:' typed on his terminal. 

2. PRINT 

P (PRINT) n[,m] 

The PRINT command tells the Editor to find S- 
expression doublet number ”n” and display it. 

A pointer, used for the CHANGE function, is 
also positioned at this doublet. If ,, m M is 
specified then the m-1 following doublets will 
also be displayed (for a total of ”m” doublets). 

If this is the case, the CHANGE pointer will be 
pointing to the last doublet displayed. 

3. CHANGE 

C (CHANGE) /stringl/string2/ 

The CHANGE function replaces the first occurrence 
of stringl by string2, in the last doublet printed 
by the PRINT command. It does this by searching 
each character string, belonging to the doublet, 
for an occurrence of stringl. The first character 
string of the doublet is indicated by the pointer 
set by the PRINT command (See PRINT above). When 
the string ’’stringl' 1 is located, it is replaced by 
the string ”string2”. If stringl” and ”string2” 
are of such length as to cause the new string to 
exceed 80 characters (the length of the character 
strings in LISPTEXT) , an error message will be 
displayed. (See APPENDIX A) Note that "stringl” 
must reside in only one character string of LISPTEXT. 
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It will not be recognized by the 'C' function if 
part resides in one string while the remainder 
resides in the next character string of LISPTEXT. 

Because of an implementation restriction, the maximum 
length of "stringl" is 35 characters. 

4. RECOMPUTE 

R (RECOMPUTE) n 

The command, RECOMPUTE, causes an S-expression 
doublet "n" to be fed to the Interpreter as an 
input. It obtains the same results as a direct 
input to the Interpreter. 

5. LIST 
LIST type 

The LIST command tells the Editor to search OBLIST 
and print the names of all items stored there with 
the characteristic "type". The three allowable 
"type" designators are 
A (ATOM) , 

F (FUNCTION) , 

S (SPECIAL FORM) . 

The Editor will display the items in the order in 
which they appear in OBLIST, along with any indicators 
they might have on their property lists (except 
PNAME and user defined indicators). Since these 

lists can be long, and displaying them can be time 

consuming, a feature has been incorporated which 
allows the user to terminate the listing process. 

After 20 names are displayed, the Editor will ask 
the question 'CONTINUE?* to which the user must 
answer either 'Y' or 'N'. 

6. DELETE 

D (DELETE) name 

The DELETE command results in a search of OBLIST 
for the name "name". It is deleted from the system 
when it is found. If it is not found a message is 
printed to that effect. 

The discussion of the Interpreter, which follows, is primarily 
concerned with two items. One item is the Garbage Collector and the 
other is a slight modification of LISP memory necessitated by the imple- 
mentation of the Garbage Collector. 
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IV. THE INTERPRETER 



A. GENERAL DISCUSSION 

In Section IV of Reference 1, Lieutenant Gentry made several recom- 
mendations for improvement of the NPS LISP interpreter. The primary 
concern here is the description of the implementation of one of those 
recommendations, the Garbage Collector. The Garbage Collector required 
a slight modification of the NPS LISP memory structure. This modifica- 
tion is explained in the next subsection in conjunction with the Garbage 
Collector. 

The recommendations for future expansion, mentioned above, fell 
under four major headings. These were, Garbage Collection, Arithmetic 
Functions, Functions with Functional Arguments and the Prog Feature. 

The final three of these recommendations have not been investigated and 
therefore remain unimplemented. 

Besides the changes which will be discussed in the next subsection, 
an error recovery routine and its error message has been added. This 
routine is called when the user uses too many right parenthesis to close 
the first S-expression of a doublet. (See APPENDIX A) 

B. NPS LISP MEMORY ORGANIZATION AND THE GARBAGE COLLECTOR 

The previous NPS LISP memory structure, discussed in Section III. A. 6. 
of Reference 1, was adequate for that system f s needs. As long as there 
was no garbage collector, handling LISP storage as a Linked List, (See 
Fig. 4(a)) the previous system worked very well. The old scheme was 
to store numbers from the M top M of memory, working down, while allocating 
"up" for List structure. This sequential allocation scheme is not compat- 
ible with an efficient garbage collector (one based on a linked allocation 
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scheme). Consequently, a few minor alterations were made to change the 
structure to that shown in Figure 4.(b). Up to the time the user acti- 
vates the Garbage Collector for the first time, the new storage scheme 
is apparently identical to the old. After garbage collection, however, 
the new structure becomes evident, with list structure storage linked 
and number storage sequential. 

The NPS LISP 1.5 VERS 1 Garbage Collector is relatively simple and 
was built as part of the Supervisor (See Section II.C.7.). It is called 
explicitly by the user who may determine the necessity of garbage col- 
lection by using the Supervisor command COUNT$ (Section I.C.6.). Gentry 
recommended a warning system in conjunction with this (user called) 
garbage collector. This warning system would periodically count the 

calls in free storage and issue a warning if free storage became 

12 

n dangerously close to becoming empty." This warning system was not 
incorporated and the user must use the explicit COUNT$ command to deter- 
mine how much free storage remains. The Garbage Collector is called by 
the command COLLECT$, at which time the . two active lists are traversed 
and marked. These two lists are (1) the OBLIST and (2) the ESTART list. 
The OBLIST is fully described in Reference 1 (Section III.A.5.). It is 
sufficient to note that, through the OBLIST, the Garbage Collector can 
get to every active atom and its property list. 

The ESTART list is a list used by the Editor and is made up of pairs 
of words. The CAR of the first word is an S-expression doublet number, 
and the CAR of the second word is the corresponding character string 
number in file LISPTEXT. Each active cell is marked by placing a 1 1 1 
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Gentry, 



P. 



52. 
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OLD LISP STRUCTURE 
(a) 



NPS LISP 1.5 VERS 1 
STRUCTURE 
(b) 



MFSTOR 




FIGURE 4 

IMPROVED LISP MEMORY STRUCTURE 
SHOWING OLD AND NEW STRUCTURE 
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in the 17th bit (which is otherwise 'O'), The Garbage Collector then 
starts at the cell sequentially following the last cell in OBLIST 
(FSTOR(127)) and progresses sequentially through LISP storage until 
reaching NBASE (the base of the number storage area). Along the way, 
every cell is checked for a , 1* in the 17th bit. If it is marked, it is 
then unmarked (the 'l 1 is replaced with a , 0*). If the cell is unmarked 
it is linked to end of free storage. The value of the PL/I variable 
FREE is unchanged, but the value of EFSTOR is changed to the address of 
the last cell linked up. The Garbage Collector then sets BNUM equal to 
MFSTOR (See Fig. 4) and resequences the number storage area. This opera 
tion of collecting in the number storage area can be called separately 
by use of the Supervisor command COLLECTN$ (See Section II.C.7.(a)). 

The final section of this thesis is a brief look at future expan- 
sion possibilibies . I have only indicated areas of possible development 
omitting details. 
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V. RECOMMENDATIONS FOR FUTURE EXPANSION OF THE 
NPS LISP 1.5 VERS 1 SYSTEM 

The four main areas for expansion, listed by Lieutenant Gentry in 
Reference 1, were: 

1. Garbage Collection, 

2. Arithmetic Functions, 

3. Functions with Functional Arguments, 

4. The Prog Feature. 

Of these four main areas, only the Garbage Collector has been implemented, 
The others were expansions of the Interpreter specifically, and were not 
attempted in the development of the VERS 1 system. These recommenda- 
tions remain for future development, since the expansion of the arith- 
metic functions, the inclusion of the ability to handle the PROG feature 
and functions with functional arguments, would greatly enhance the 
capabilities of the present Interpreter. 

Although the Supervisor, handles the special dump files, it does 
not have a true I/O capability. One recommendation would be that the 
Supervisor be expanded to handle user defined files, I/O to tape drives, 
and output to a print file for use with the printer. The Q-32 system 
has extensive I/O capability. This system could be studied and some 
of its features perhaps implemented as part of the VERS 1 Supervisor. 
Another helpful feature would be a short IBM 360 Assembler Language 
routine which would print the S-expression doublet number instead of 
the standard , which follows the 'CALL EVALQUOTE, ARGS : 1 message. 

This routine would be called each time the first line of a new doublet 
is input. 
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The present Editor provides the basic functions required of an 
editor. However, a study of the BBN editor is sure to reveal specific 
functions which would be profitable if implemented on the NPS LISP 
Editor. One example is the multiple change feature. If present, this 
function would locate every occurrence (in a doublet) of the string to 
be replaced, and replace it with the new string. 

In conclusion, the first version of NPS LISP 1.5, (VERS 1), meets 
all the basic requirements of an interactive LISP system under the CP/ 
CMS time-sharing system. Moreover, its structure permits easy expansion. 
Therefore, it is hoped, future versions of NPS LISP 1.5 will not be 
restricted by any design feature of the present NPS LISP 1.5 VERS 1. 
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APPENDIX A 



NPS LISP 1.5 VERS 1 ERROR MESSAGES 



SUPERVISOR: 

SI: COMMAND NOT RECOGNIZED, TRY AGAIN 

Special option request is not recognizable. 

Check Section II. B for proper format. 

System Action : Ignores faulty command and waits for 

next try. 

S2 : SUPERVISOR COMMAND NOT RECOGNIZED 

A regular Supervisor command (one ending in a '$') 
was not recognizable. Check Section II. C for proper 
format . 

System Action : Ignores faulty command and returns 

control to the Interpreter. 

SAl: LINE PARM OUT OF BOUNDS 

AUTOSAVE = 

The line parm, n, is out of bounds or not a number. 

The bounds on the line parm are 1^ n£ 20. 

System Action : Ignores the faulty line parm and calls 

for a new line parm input by displaying 'AUTOSAVE 55 * 
and waiting for a reply. 

SA2 : AUTOSAVE DEFAULT VALUE ASSUMED 

The second line parm input is out of bounds or not a 
number. 

System Action : Assumes default value for line parm. 

Default value is 5. 

UNNUMBERED: FILE NOT FOUND 

This reply to a L0AD$ file name command indicates file 
"filename" is not on the user's disk. Check for in- 
correct spelling of "filename". 

System Action : Returns control to the Interpreter. 
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INTERPRETER: 



II: PARENTHESES ERROR 

There are too many right parentheses closing the first 
S-expression of the doublet being input. 

System Action : Deletes the part of the doublet already 

input and sets up for the next doublet to be input. 

EDITOR: 

El: EDIT CALL NOT VALID, TRY AGAIN 

The call for the particular Editor function desired was 
not recognized. See Section III.B for proper Editor 
calls. 

System Action : Editor ignores faulty call and waits for 

next try. 

E2 : NO S-EXPRESSION ENTERED 

The call to 'PRINT n' or 'RECOMPUTE n' was made with not 
only doublet "n" not in the system, but no doublets 
entered. Perhaps a LOAD$ command was not issued or the 
"filename" was not the one desired. 

System Action : Editor ignores call and waits for the 

next one. 

E3 : S-EXPRESSION NUMBER NOT FOUND 

The call to 'PRINT n' or 'RECOMPUTE n' was made with 
doublet 'n' not in the system. Check for the correct 

M_ II 

n . 

System Action : Editor ignores call, waits for next one. 

E3A: FORMAT ERROR: PRINTING S-EXP NUMBER "n" 

The call to 'PRINT n,m' was incorrectly formatted. 

Check for the omission of a comma or of "m". 

System Action : Prints doublet "n". 

E4 : ILLEGAL EDIT COMMAND 

The Editor call was correct, but the rest of the call 
was unrecognizable. Check for incorrect 'CHANGE' call 
format. 
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System Action : Editor ignores call and waits for the next 

one . 

ESA: 'TYPE* PARAMETER MISSING 

On a * LIST type 1 call the ,, type n parameter was left off. 

Try again. 

System Action : Editor ignores call and waits the next 

one . 

E5B : 'TYPE' PARAMETER NOT RECOGNIZED 

On a 'LIST type' call the "type" parameter was not a legal 
one. Check Section II. B. 5 for legal "type" parameters. 

System Action : Editor ignores call and waits for next 

one. 

E6A: FIELD NOT FOUND 

On a 'CHANGE /stringl/string2/ ' call the field "stringl" 
was not found in the doublet pointed to by the "change" 
pointer. This pointer is set by the 'PRINT n' call. 

Check Section III.B.5 for details. 

System Action: Editor waits for next call leaving the 

"change" pointer unmoved. 

E6B : TRUNCATED 

On a 'CHANGE /stringl/string2/ ' call the field "string2" 
is longer than "stringl" and the change has caused the 
file LISPTEXT character string, which now contains 
"string2" as a substring, to exceed 80 characters in 
length. The excess characters have been dropped on the 
right. 

System Action : Editor makes the change truncating on the 

right and waits for next call. 

E7 : ATOM NOT FOUND 

On a 'DELETE name" call the atom "name" was not found in the 
system. 

System Action : The Editor waits for the next call. 

UNNUMBERED: FIELD TOO LONG 

This reply to a 'CHANGE /stringl/s tring2/ ' call means that 
the field of "stringl" exceeds 35 characters, the maximum 
field length for "stringl". 

System Action : Editor waits for next call. 
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APPENDIX B 



MAJOR PL/I BLOCKS AND 
THEIR FUNCTIONS 

ENTRY POINTS 

MAJOR BLOCK AND LABELS 



LISPA 

SCNT: 

LOOP: 


LISPA is the Supervisor. 

The Special Options routine. 
The basic supervisor toutine 
analogous to EVALQUOTE in 
other systems. 


TERM: 


The exit point from the system. 


CMD: 


The routines following this 
label handle the Supervisor 
commands . 


TEXTWRK: 


A function called by several 
routines but used primarily by 
the Editor. It stores doublets 
in LISPTEXT and reads lines of 
LISPTEXT into CARDJBUFFER. 


TSAVE: 


Copies LISPTEXT into LISPTEMP. 


LISPB 


LISPB contains LISP subroutine 
functions. The entry point names 
are the names of the LISP functions 
with an , N I prefix. 


LISPC 


LISPC contains the syntax and lexical 
analysis functions. . 


NREAD: 


Reads in an S-expression, and sets 
up the list structure required by 
EVALQUOTE. (It manages OB LIST in the 
process) . 


INCWRK: 


Handles the storing of input lines 
in LISPTEXT, the incrementing of 
the autosave counter, and printback 
if that option has been chosen. 


SCAN: 


The entry point for the routine that 
reads in a line and carries out the 
lexical analysis of that line. 
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ENTER : 


Enters an atom into OBLIST after HASH 
has returned the atom’s OBLIST number. 


HASH: 


Hash codes atoms to obtain their OBLIST 
number. 


LOOKUP: 


Looks to see whether or not an 
atom is stored in OBLIST, 


LISPD: 


LISPD is the Interpreter, the Print 
and Trace and FSUBR functions. 


LISPE: 


LISPE is the initialization routine. 


LISPF : 


LISPF contains the reader, the Garbage 
Collector and the dump and load 
routines . 


READER: 


The read routine. It displays what- 
ever string it has been passed and 
receives the input into whatever 
buffer has been designated by the 
calling routine (usually the 72 
character string BUFFER). 


DUSAVE: 
LOADER : 


The dump routine for LISP memory. 
The load routine for files AUTOLISP 
and DUMPLISP. 


COLLECT: 


The Garbage Collector. 


LISPG 


LISPG is the NPS LISP 1.5 VERS 1 
Editor. 


EA: 


The routine which handles I/O with 
the terminal and analyzes the user 
input . 


El: 


The PRINT routine. It is also used 


E2 : 
E3 : 
E4 : 
E5 : 


by the RECOMPUTE routine. 
The LIST routine. 

The CHANGE routine. 

The DELETE routine. 

The RECOMPUTE routine. 


LISPP: 


LISPP contains all the primitive 
LISP functions. These correspond 
to the entry point names without the 
f N f prefix. 
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APPENDIX C 



LISTING OF THE NPS LISP 1.5 VERS 1 SYSTEM 



• I • B : AUTOSAVE ENABLED */ 



INPUT SI, LI ME 1 */ 



LISPA: PROC OPTIONS(MAIN) ; 

/* THIS IS THE LISP SUPERVISOR */ 

DECLARE 

ACC UN CHAR (30) EXT, 

ASCTR BIN FIXED EXT, 

ASNMBR BIN FIXED EXT, 

ASTAG BITIU EXT, /* 

AVAR CHAR ( 2 ) VARYING, 

BNUM BIN FIXED EXT, 

BP BIN FI XED EXT, 

BUFFER CHARI 72 ) EXT, 

CARDN01 BIN FIXED(31,0) EXT, 

CARDN03 BIN FIXED(31,0) EXT, 

CH4 CHAR ( 4 ) , 

COUNT BIN FIXED EXT, 

CTAG BIT! II EXT, /* '1 »B 
DTAG BIT(l) EXT, 

EFSTOR BIN FIXED EXT, 

1 FCB EXT, 

2 COMMAND CHARI8 ) , 

2 FILENAME CHARIB) , 

2 FILETYPE CHARIB) , 

2 CARD NUMBER BIN FIXED! 31,0), 

2 STATUS BIN FIXED<31,0) , 

2 CARD BUFFER CHAR 1 80 ) , 

ENDTAG B I T I r ) EXT, /* 'l'B: 

ERSTAG B I T I 1 I EXT , /* 'l'B: 

ERRTAG BIT(l) EXT, /* *1 • B: 

ESTART BIN FIX6DI31) EXT, 

FREE. BIN FIXED EXT, 

F SEND BIN FIXED, 

F STOR I 0 : 16000) BIN FIXFDI31) 

LCOIINT BIN FIXED EXT, 

MFSTOR BIN FIXED EXT, 

MODETAG BIT(l) EXT, 

NREAD ENTRY EXT, 

PTAG BIT(l) EXT, 

READER ENTRY! CHARI25) VARY I NG , CHAR I 72 ) ) RETURNS I B I T I 1 ) > , 
RTAG BITIU EXT, 

51 BIN FIXED, 

52 BIN FIXED, 

53 BIN FIXED, 

TCOUNT BIN FIXED EXT, 



END LISP */ 

FILFS A LISP DR D_L I S P EXIS 
PAREN EFROR */ 



EXT. 
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VARA CH AR ( 25 ) VARYING 



VAR A = 'SPECIAL OPTIONS?'; ES T ART=0 ; ERRTAG=*0'B; 

PTAG.DTAG ,ASTAG,ENDTAG,ERSTAG,RTAG=‘0' 8; ASNM8R=5; ASCTR=C; 
DTAG1 = ' 0 ' 3 ; 

FILENAME='LI SPTEXT* ; F I LETY PE = • OAT A • ; COMMAND= ' R DBU F* ; 

CARD NUMBER=1; CALL I HEF I LE ( F CB ) ; 

IF SUBSTR(CARD BUFFER, l,l)='l' then 

DO; COMMAND* 'ERASE' ; CALL IHEFILE(FCB); 

COMMAND^ 'WRBUF' ; CARD BUFF£R='I'; 

CALL IHEFI LE ( FCB) ; GOTO ST; 

END; 

IF SUBSTR ( CARD BUFFER , 1 , 1 )=• 2 • THEN 
DO; DISPLAY! • •); ERSTAG='1'B; 

DISPLAY! • — FILES LISPTEXT AND AUTOLISP EXIST — •>; 

DI SPLAY! • •) ; GOTO ST; 

END ; 

IF SUBSTR ( CARD BUFFER , 1 ,1 )=• 3 • THEN 
DO; DISPLAY! • •); ERST AG = ' I ' B; 

DI SPLAY! '—FILES LISPTEXT AND DUMPLISP EXIST--'); 

DISPLAY!' •); 

END; 

ELSE DO; COMMAND='WRBUF'; CARD BUFFER*'l'; 

CALL IHEFILE (FCB) ; 

END; 

ST; CARDNOl =2 ; 

CALL INITIAL; 

T COUNT =2 ; 

IF -.READER! VARA, BUFFER) THEN GOTO TERM; BP=0; 

SCNT: CALL SCAN; IF TC0UNT=0 THEN GOTO CK; 

SCN1 : IF SUBSTR(ACCUM,1 ,COUNT ) = ' N' I SU BSTR < ACCUM, 1 , COUNT )=• NONE • THEN 
DO; DISPLAY!' •); DISPLAY!' •); GOTO LOOP; END; 

IF SUBSTR (ACCUM, 1 ,C OUNT ) = ' NP ' THEN DO; PTAG='0'B; GOTO CK; END; 
IF SUBSTR! ACCUM, 1 ,1)='P* THEN DO; PTAG*'1'B; GOTO CK; END; 

IF 5UBSTR(ACCUM,l,COUNT)='AUTOSAVE' THEN 
DO; A STAG= • 1 • B ; CALL SCAN; 

IF TC0UNT=0 THEN GOTO CK; 

FILENAME = 'LI SPTEXT' ; CARD BU FFER= ' 2 ' ; 

COMMAND='WRBUF* ; CARD NUMBFR*1s CALL IHEF IL E ( FCB ) ; 

IF SUBSTR! ACCUM, 1 , COURT )-,= ' = ' THEN GOTO SCN1; 

CALL SCAN; ASNMBR=SUBSTR( ACCUM, 1, COUNT); 

IF ASNMBR>20 I ASNMBR<1 THEN 

DO; DISPLAY ( '**SA1: LINE PARM OUT OF BOUNDS**'); 
DISPLAY! '**AUTOSAVE=' ) REPLY ( AVAR ) ; 

ASNMBR= AVAR ; IF ASNMBR> 20 | AS NMBR< 1 THEN 
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DO: ASNMBR=5; 

DISPLAY* '**SA2: AUTOSAVE DEFAULT VALUE ASSUMED** 
GOTO ck; END; 

END; 

GOTO CK; 

END; 

IF SU8ST 0 * ACCUM , 1 , COUNT ) = • N AS ' THEN 
DO; AST AG= 1 0 1 9 ; ASN M 8R=5: 

FILENAME='LISPTEXT'; 

CARD BUFFER= * 1 • * COMMAND= • WR RUF ' : CALL I HEF IL £ < F CB ) ; 
FILENAMES' AUTOSAVE'; COM MAND= • ERASE • ; 

CALL IHEFILE (FCB) ; GOTO CK; 

END: 

DISPLAY* ***S1 : COMMAND NOT RECOGNIZED, TRY AGAIN**'); BP = 1 
GOTO SCNT ; 

CK: IF TC OUNT = 2 THEN GOTO SCNT; 

DISPLAY* • •) : DISPLAY* ' • ) ; 

LOOP: S1=NREAD ; IF S1<0 THEN 

IF Sl=-I THEN GOTO TERM; ELSE GOTO CMD; 

IF SI =1 2 7 THEN GOTO LOOP; 

S2=NREAD: IF S2<0 THEN 

IF S2=-l THEN GOTO TERM; ELSE GOTO CMD; 

IF S 2 = 1 2 7 THEN GOTO LOOP; 

S3=NE VALQ ( SI , S2) ; 

S3 = NPRI NT* S3) ; 

DISPLAY* ' ' ) ; DISPLAY* • • ) ; 

GO TO LOOP; 

TERM: F I LENAME= ' AUTCL I S P ' ; COMMAND= • ERASE' ; CALL IHFFILE * FCB) ; 
FlLENAMFs'LISPTEXT*; 1=1; RTAG= ' 1 ' B » 

CALL TE XT WRK * I ) ; COMMAND= • ERASE • ; CALL I HEF IL E * FC B ) ; 
COMMANDS • WRBUF' ; 

IF SUBSTR * CARD BUFFER , 1 , 1 ) = ' 3 • THEN 

DO; CALL THEFILE*FC8) ; GOTO EX; END: 

CARD BUFFERs' 1 ' ; CALL IHEF I LE * FC B ) : 

EX: COMMffND='FINUFD' ; CALL IHEF IL E ( FC B ) ; 

DISPLAY* 'EXIT LISP SYSTEM'); 

RETURN; 

CMD: IF ERRTAG THEN DO; ERRT AG= * 0 ' B; GOTO Cl; END; 

IF SUBSTR(ACCUM,1 , 3 ) = ' OPT ' THEN 

DO; TCOUNT=2; GOTO SCNT; END; 

IF SUBSTR(ACCUM,1 » 1 ) = • 0 * THEN 
Cl: DO; IF MODETAG THEN 

DO: MODETAGs'O' B; L COUNT = LC OUNT- 1 ; 

CARDNOl =CARDN03 ; 

END; 
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GOTO LOOP; 

ENO ; 

IF SUBSTR! ACCUM,1 ,4)='DUMP* THEN 
DO; IF ASTAG THEN 

DO; ASTAG='0'B; F I L ENA ME* • AUT OL I S P ' ; COMM AN D= • ERA SE • ; 
CALL IHEFILE(FCB) ; 

END; 

FI LENAME = 'DUMPLISP' ; COMMAND* • ERASE ' ; CALL I HEF I L E ( FCB ) ; 
DTAG='1'B; ERSTAG='0'B; 

CALL DUSAVE? CALL TSAVE; 

GOTG LOOP; 

END; 

IF SUBSTR(ACCUM,1 , 4 ) = ' L OA D' THEN 
DO; TCCUNT=2; 

AGN: CALL SCAN; IF TC0UNT=0 THEN GOTO LOOP; 

FI LENAME=SUBSTR( ACCUM,1 , COUNT); CALL OPEN; 

DISPLAY! 'LOADING • | I F I LENAME) ; 

IF FILFNAME='LISPTEXT' THEN 

DO; CALL CLOSE; FI L ENAM E= ' L I S PT EMP • ; CALL OPEN; 

COMMAND* ' RDBUF ' ; CARD NUMBER* 1 ; CALL IHEF IL E( FCB ) ; 
CH4=SUBSTR( C ARD BU FFER ,10,4) ; 

UNSPFC(ESTART) =UNS P EC ( CH4) ; 

CH4=SUBSTR(CARD BU FFER , 20 , 4 ) ; 

UNSPEC! FREE )=UNSPEC(CH4) ; CH4=SUBSTR(CARD_BUFFER ,30,4> ; 
UNSPE C ( BNUM) =UNS PEC ( CH4 ) ; CH4=SUBST R ( C ARD BUFFER t 2 »4 ) ; 
UNSPEC(LCOUNT) =UNSPEC( CH4) ; CH4=SU BSTP ( CARD BUFFER, 6,4); 
UNSPEC (CARDNOI )=UNSPEC(CH4) ; 

CH4* SUBSTR (CARD BU F FER , 14 , 4 ) ; 

UNSPEC (£FSTOR)=UNS PEC! CH4 ) ; 

CARD_NUMBER=2 ; CALL I H EF IL E ! FCB ) ; 

DO WRILE(STATUS-=12) ; 

FI LENAME = ' LISPTEXT • ; COMMAND*' WRBUF' ; CALL I HEF I L E ( FCB ) ; 
CARD NUMBER* CAP DNUMBER+l ; 

F I LEflA ME* ' L I S PTEflP ' ; COMMAND* ' RDBUF' ; CALL I HEF I L E ( FCB } ; 
END; 

COMMAND* 'ERASE • ; CALL IHEF I LE ! FCB ) ; /* ERASE LISPTEMP */ 
CARD NUMBER=1; FILENAME*' LISPTEXT' ; 

IF ASTAG THEN CARD BUFFER- *2'; ELSE 

CARD BUFFER* ' 1 ' ; ERSTAG='0'; COMMAND* • WRBUF • ; 

CALL IHEFILE(FCB); GOTO AGN; 

END; 

CALL LOADER; COMMAND*' ERAS E' ; CALL I HEF IL E ( FC B ) ; GOTO AGN; 
END; 

IF SU8STR(ACCUM»1 ,1)='E' THEN 

DO; CALL EDITOR; IF ENDTAG THEN GOTO TERM; ELSE GOTO LOOP; 
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END; 

IF SU3S TR ( ACCUM , 1 .5 ) = ' COUNT ' THcN 
DO; FSrND=FSTOR (FREE) ; 1=0: 

00 WHILE<FSEN0i=O); 

FScND=FSTOR (FSEND) ; 1=1+1; 

C NO ; 

1 = 1 + 1 : 

01 SPLAY ( 'CELLS IN FREF STORAGE: •Ml): 

DI SPLAY! 'CELLS AVAILABLE FOR NUMBERS :• I | 300-MFSTQR MV 
GOTO LOOP; 

END; 

IF SUBSTR(ACCUM,1 , COUNT ) = ' COLLECTN' THEM 
DO; rjn WHILE (BNUN<=MFSTOR); 

F S TOR ( BNUM)=BNUM+1 ; 8NUM= BNUM+ 1 ; 

END: BNUM=BNUM— 1 ; GOTO LOOP: 

END; 

IF SUBSTR ( ACC UM , 1 *7) = ' C CL L6CT ' THEN 
DO; CALL COLLECT; GOTO LOOP*. 

END: 

DISPLAY) '**$2 : SUPERVISOR COMMAND NOT RECOGNIZED*”"); 

GOTO LOOP; 

TtXTwRK : ENTRY! LC1 ) ; 

DECLARE 

LC1 BIN FIXED, 

NIL BIN FIXED EXT, 

NUMB CHAR(3) , 

NUMB 1 FIXED DECIMAL; 

FILENAME- 'Ll SPTFXT • ; F I LETY PE= • DAT A • ; 

IF ERSTAG THEN 

DO; COMMAND* 'ERASE'; CALL I HE F I L E ( F CB > ; 

CARD NUMBER=l; IF ASTAG THEN CARD BUFFER* '2'; 

“ELSE CARD BUFFER*' 1 ' : 

COMMAND* ' WR BUF T ; CALL IHEF IL E ( FCB ) ; ERST AG= ' 0 ' B ; 

END? 

IF R TAG THEN 

no; CALL open; COMMAND-' RDBUF' ; GOTO READ; END; 

IF -CTAG THEN CAPD BUFF ER = ' 'll BUFFER; 

ELSE DO; NUMBl-rCl; NUMB-NUMB1 ; C ARDN03-C ARDNO 1 ; 

IF LC1<10 THFN DO; 

CARO BIJFFER*SUBSTR(NUMB,8, 1 ) II ' ' I I p U FF E R : 

GOTf T2; END; 
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IF LCK100 THEN DO; CARD BUFFER=SUBSTR (NUMB, 7, 2 ) | | 

* • I (BUFFER; 

GOTO T2; END; 

IF LCKIOOO THEN CARD_BUFFER=SUBSTR(NUMB,6» 3)1! 

' * | (BUFFER; 

END; 

T2 : COMMAND = ' WR RUF 1 ; CARD NUMBER= CAR DNOl ; CALL I HEF I L E ( FCB ) ; 
IF CTAG THEN 

DO; IF LC I =1 THEN ESTART=NCONS ( LC I , NCONS ( CARDNOl , N IL ) ) ; 
ELSE ESTART=NCONS(LCl , NCONS (CARDNOl , ESTART ) ); 

END; 

CARDNOl =CARDN01+1 ; 

RETURN; 

READ: CARD_NUMBER=LC1 ; CALL I HEF I LE ( FCB ) ; CALL CLOSE; RETURN; 
OPEN: ENTRY; 



COM MAND=' STATE’ ; 
COMMAND=» SETUP’ ; 
RETURN; 



CALL IHEFILE(FCB) 
CALL I HEF I LE ( FCB ) 



CLOSE : ENTRY; 



COMMANDS FI NI S' 
RETURN; 



CALL IHEFILE(FCB) 



TSAVE: ENTRY; 

DCL KT BIN FIXED STATIC; 

1=1; RTAG = '1'B; CALL TEXT WRK ( I) ; RTAG=’0’B; 

IF DTAG THEN SUBS TR ( CARD BUFFER * 1 » 1 ) =' 3' ; CALL CLOSF; 
COMMAND = ' WRBUF ' ; CALL I HEF I LE ( FCB ) ; COMMAND* ' F INU^D ' ; 

CALL IHEF ILE (FCB) ; DTAG=*0'B; KT=1; 

FILENAME* 'Ll SPTEMP*; COMMAND* 'ERASE* ; CALL IHEF IL E ( FC B) ; 
RTAG= ' 1 ' B ; CALL TEXT WRK (KT ) ; 

DO WHILE(KT<CARDN01) ; 

CARD_NUM8ER=KT; F I LENAME = • L I S PT EMP' ; COMMAND* • WR BUF' ; 
CALL IHEFILE (FCB) ; KT = KT + 1 ; CALL TEXTWRK (KT ) ; 

END; 

FILE NAME='LISPT EMP* ; COMMAND* • F I NUFD' ; CALL IHEF IL E ( F CB ) ; 
RTAG* ’ 0 'B ; FI LENA ME*' LISPTEXT' ; RETURN; 

END LI SPA; 
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LISPB: PROC: 

/* LISP SUBROUTINE FUNCTIONS. ENTRY POINT NAMES CORRESPOND T n LIS 
FUNCTION NAMES WITH AN *N» PPECEED ING THEM. */ 



DEC L ARE • 

APVAL p IN FIXED EXT, 

RFREE BIN FIXED EXT, 

BNUM BIN FIXED EXT INITIAL(-l), 
SXPR BIN FIXED EXT, 

F BIN FIXED EXT INITlAL(-l), 

FfcXPR BIN FIXED EXT, 

FLAG BIN FIXED EXT, 

FREE BIN FIXED EXT, 

P STOR ( 0 : 1 5 OOO ) RIN FIXEDI31) EXT, 
FSUBR BIN FIXED EXT, 

GBI 6 BIT(IF) STATIC ALIGNED, 

GB32 R I T ( 32 ) STATIC ALIGNED, 

GT1 BIN FIXEO EXT, 

MPSTOR BIN FIXED EXT INITIAL(-l), 
MONE BIN FIXED EXT INTTIAL(-l), 
NIL BIN FIXED EXT INITIAL(-l), 

NC BIN FIXED EXT, 

PNAME BIN FIXED EXT, 

SUBR BIN FIXED ExT, 

T BIN FIXED EXT INITIAL(-I), 

TRACE BIN FIXED EXT, 

TRCGNS BIN FIXED EXT; 



ncaaR ; 

NC ADR : 
NCDAR : 
NCDDR : 
NC A AaR 
NCAADR 
NC AD A R 
NCOAAR 
NCADDR 
NCDADR 
NCDDAR 
NCDDDR 



ENTRY(KAA); DC L KA A ; RE TUR N ( NC AR ( NC AR ( K AA ) ) ) ; 
ENTRY(KAD); DC L KAD; RETURN! NC AR (NCDR ( KAD) )) ; 
ENTRY(KDA); DC L KD A ; RETURN ( NC DR ( NCAR ( K DA ))) ; 

ENTRY ( KDD) ; DC L KDD; RETURN ( NC DR ( NCDR ( KDO) )) ; 

ENTRY ( KAAA) ; DC L K A A A ; RETURN (NC AR ( NCAAR ( K AAA ))) : 
ENTRY ( KAAD) ; DCL K A AD ; RETURN ( NCAR ( NCADR <K AAD ))) ; 
ENTRY ( KADA) ; DCL KADA; RETURN (NCAR < NCDAR (KADA ))) ; 
ENTRY ( K DA A ) ; OCL KD AA ; RETURN (NCDR (NCAAR (KDAA ) ) ) ; 
ENTRY ( KADD) ; DCL KADD; RETURN ( NCAR ( NCDDR ( K ADD ))) : 
ENTRY (KDAD) ; DCL KDAD; RFTURN ( NCDR ( NC ADR ( K DAD ) ) J : 
ENTRY ( KDD A) ; DCL KDD A ; RETURN ( NCDP ( NC PAR ( K DOA ))) ; 
ENTRY ( KDDD) ; DCL KODD; RETURN ( NC DR < NCDDR ( K DDP ))) : 



NULL: ENTRY(NLL); 

/* RF TUP NS T IF NLL IS THE NULL LIST, F OTHERWISE */ 
DCL NLI ; 
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IF NLL=NIL 
RETURN ( F ) ; 



THEN RETURN (T ) 



NEQUAL: ENTRY! JEOL,KEQL) RECURSIVE: 

/* RETURNS T IF J AND K ARE THE SAME S-EXPRESSION 
AND F OTHERWISE */ 

DC L (JEQUKEQL); 

IF NATOM( JEQL)=T E NATOM ( K EOL )=T THEN 
RETURN! NEG( JEQL »KEQL ) ) ; 

IF NATOM ( JEQL ) =T I NATOM ( KEOL ) =T THEN 
RETURN! F ) ; 

IF NEQUAL! NCAR! JEQL) ,NCAR (KEOL) )=T THEN 

RE TURN (NEQUAL (NCDR (JEQL), NCDR (KEOL) ) ); 

RETURN ( F ) ; 

NAPPEND: ENTRY! JAPP , KAPP) RECURSIVE: 

/* APPENDS LIST KAPP TO END OF LIST JAPP - VALUE RETURNED 
IS NEW LIST */ 

DC L (JAPP, KAPP): 

IF JAPP=NI L THEN RETURN ( KAPP ) : 

RETURN (NCONS! NCAR! JAPP), NAPPEND (NCDR! JAPP), KAPP) ) ) : 

NCOPY:£NTRY(JCOP) RECURSIVE: 

/* RETURNS A COPY OF LIST JCOP */ 

DCL ( JCOP,MCOP,NCOP) ; 

IF JCOP=NIL THEN RETURN! NI L ) : 

IF NATOM! JCOP) =T THEN RETURN ( JCOP I : 

MCOP=NCOPY ( NCAR! JCOP ) ) : 

NCOP=NCOPY(NCDR( JCOP) ) : 

RE TUR N( NCONS ( MCOP » NCOP ) ) ; 

MEMBER: ENTRY ( JME M , KMEM) RECURSIVE: 

/* RETURNS T IF LIST JMEM IS A MEMBER IF LIST KMEM, 

F OTHERWISE */ 

DCL (JMEM, KMEM); 

IF KMEM=NIL THEN RETURN! F) ; 

IF NEQUAL! JMEM, NCAR(KMEM) )=T THEN RETURN(T); 

RE TURN (MEMBER (JMEM, NCDR! KMEM) ) ); 

NPAIRLS: ENTR Y( JPAI R , KPAI R ,LPA I R) RECURSIVE; 

/* CREATES A LIST OF PAIRS OF CORRESPONDING ELEMENTS OF 
LISTS JPAI R AND KPAI R AND PUTS ON FRONT OF LIST LPAIR*/ 
DCL ( JPAIR,KPAIR,LPAIR,MPAIR,NPAIR); 

IF JPAI R =NI L THEN RETURN ( LPA I R ) ; 

MPAI R=NCONS( NCAR! JPAIR) ,NCAR(KP AIR) ) ; 
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NPAIR=NPAIRLS(NCDR (JPAIR) ,NCDR(KPAIR) ,LPAIR ) : 
R£TURN(NCONS(MPAIP,NPAIR) ) : 

NASSOCs ENTRY( JAS,L£S) ; 

/* RETURNS POINTER TO PAIR ON LIST LAS (A-LIST) WHOSE 
FIRST TFRM = JAS */ 

DC L ( JAS, LAS ) ; 

NASS : I F NEOUAL( NCAAR(LAS) , JAS )=T THEN RETU RN ( NC AR ( L AS ) ) : 

1. AS = NCDR ( LAS ) ; 

IF LAS=NI L THEN RETURN (NIL) ; 

GO TC NASS; 

NSUR2: £NTRY( LSU9 , KSUR) RECURSIVE; 

/* RETURNS SECOND TERM OF PAIR ON LIST LSUB HAVING c 1° ST 
TERM EQUAL TO KSU8 */ 

DC L (LSUB, KSUR); 

IF LSUB=NIL THEN RETURN( KSUR ) ; 

IF NFQ( NCAAR (LSUB) , KSUR) =T THEN RETURN ( NCDAR ( L Ft) R )) ; 
RETURN(NSUB2 (NCDR(LSUB) ,KSUB) ) ; 

NSUBLIS*. £NTRY(LS3L,KSBL) RECURSIVE; 

/* RETURNS AN S-EXPRESSION IN WHICH ALL VARIABLES IN 
S-EXP. KSBL HAVE BEEN REPLACED BY THE VALUES TO 
WHICH THEY ARE CURRENTLY BOUND ON THE A-LIST (t.SRL) ‘ 
DC L ( LSBL, KSBL) ; 

IF NATCM ( KSBL ) =T THEN RETURN ( NSUB2 ( LS Bit KSBL )) ; 

RE TURN (NCONS (NSUBLIS ( LS BL , NCAR ( KS RL ) ) , 

NSUBLIS ( LSBL,NCDR( KSBL ) ) ) ) ; 

NSASSOC: ENTRY( JSAS,KSAS, LFN) ; 

/* RETURNS DOTTED PAIR FROM LIST KSAS WHOSE CAR IS EO 
TO JSAS, IF NO SUCH PAIR EXISTS, RETURNS THr 
FUNCTION LFN */ 

DC L ( JSAS, KSAS, LFN, MSAS) ; 

MSAS = K SA S ; 

SAS: IF MSA S = NI L THEN RETURN(LFN): 

IF NEQ(NCAAR(MSAS) ,JSAS)=T THFN RETURN! NCAR ( MSAS )) ; 

MS AS -NCDR ( MS AS ) ; 

GO TO SAS; 

NCONC : ENTRY! JNCtKNC) ; 

/* RETURNS LIST JNC WITH LIST KNC ADDED ON TO THE END * 
DC L (JNC, KNC , MNC , NCONA ) ; 

IF J NC = NI L THEN R ETURN ( KNC ) ; 

MNC= JNC ; 
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NCGNJIF NCDR (MNC) =NIL THEN 

DO; NCONA=NRPLACD(MNC,KNC > ; RETURN(JNC); END; 
MNC=NCDR ( MNC ) ; 

GO TC nccn; 



NATTRIB: entry! jatr ,katr) ; 

/* ATTACHES LIST K ONTO END OF LIST J AND RETURNS K */ 

DC L ( JATR » KATR » N) ; 

N=NC ONC ( JATR, KATR) ; 

RETURN! KATR) ; 

NSUBST : ENTRY! JST, KST .LSBST) RECURSIVE; 

/* RETURNS LIST FORMED BY SUBSTITUTING JST FOR EVERY 
OCCURRENCE OF KST IN LSBST */ 

DC L ( JST , KST, LSBST); 

IF NEOUAUKST, LSBST) =T THEN RETURN! JST ) ; 

IF NATOM ( LSBST) =T THEN RETUR N( LS BST ) ; 

RETURN ( NCONS (NSUBST! JST , KST , NCAR ( LS BST ) ) , 

NSUBST! JST, KST, NCDR (LS BST ) ) ) ) ; 

NPROP : ENTRY ( JPR ,KPR, I PFN) ; /* 11-12-69 */ 

/* RETURNS CDR OF CELL WHOSE CAP IS EQ TO KPR IF ONE EXISTS, 
RETURNS THE FUNCTION IPFN OTHERWISE */ 

DC L ( JPR, JPR1 , KPR, IPFN) FIXED BIN; 

IF NATOM! JPR)=T THEN JPR 1=NCDR( JPR ) ; ELSE JPRl=JPR; 

PROP : I F JPR1=NIL THEN RETURN ( I PFN ) ; 

IF NEO!NCAR! JPR1 ) ,KPR)=T THEN RETURN ( NCDR ( JPR 1 )) ; 

JPR1 =NCDR( JPR1 ) ; 

GO TC PROP; 

NGET: ENTRY! JG6T,KGET) ; /* 11-12-69 */ 

/* RETURNS CADR OF CELL WHOSE CAR IS EQUAL TO KGET IF ONE 
EXISTS, RETURNS NIL OTHERWISE */ 

DCL ! JGET, JGET1, KGET » KGET 1 ) FIXED BIN; 

IF NATOM! JGET)=T THEN JGET1= NCDR (JGET ) ; 

ELSE JGET1 =JGET ; 

GETA; IF JGET1 =NI L THEN RETURN (NIL); 

IF NEQ(NCAR( JGET1) ,KGET)=T THEN RETURN! NCADR (JGET1 )) ; 
JGET1 =NC DR ( JGET 1 ) ; 

GO TO GETA; 

NPAIR: ENTRY! JPAR,KPAR) ; 

/* RETURNS LIST OF DOTTED PAIRS OF CORRESPONDING ELEMENTS OF 
LISTS JPAR AND KPAR WHICH MUST BE OF EQUAL LENGTH */ 
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net ( jpas»kpar»lpar,mpar»npar } ; 

LP££ = NI L ; 

MPAR=JPAR; NPAR=KPAP; 

PAIP.A: IF MPAP = NIL I NPAP=NIL THEN 

DO; IF MPAR =NIL THEN 

IF NPAR=NI L THEN P ETURN ( NREVERS ( L R AR ) ) ; 
RPTU»N( NIL) ; 

END; 

LPAR=NCONS(NCONS (NCAR(MPAR) , NC AR ( NPAR )), L PAR ) ; 
MPAR=NCDP(MPAR) ; NPAR=NCDP (NPAR ) ; 

GO TO PAIRA; 

NUMBER P : ENTRY ( NUN* P ) ; 

/* RETURNS T IF NUMP IS AN INTEGER NUMBER - F OTHERWISE 
DC L NUMP; 

IF NCDP ( NUMP) >BNUM THEN RETIJR N ( T ) ; 

RE TURN ( F ) ; 

NEFFACE: ENTR Y( JEF , KRF) ; 

/* DELETES ITEM JEF FRGM THE TOP LEVEL OF LIST K=F AND 
RETURNS ALTERED LIST KEF */ 

DC L ( JEF,KEF,KEF1 , EF 1 ,EF2) FIXED BIN; 

KEF1=KFF ; 

DO WHILF (NEQUALf JEF , NCAR ( KE F 1 ) ) = T); 

KEF1 = NCDR( KEF1) ; END; 

EF2 = KEFI ; EF1 =NCDP (KEFI ) ; 

DO WHILE ( EF 1 -»=NI L ) ; 

IF NEOUAL(NCAR(EFl) ♦ JEF ) =T THEN 
DO; EF1=NCDR(EF1 ) ; 

EF2=NRPLACD(EF2tEFl); 

END ; 

ELSE DO; EF2 = EF 1 ; E E1 = NCDP. ( EF2 ) ; END; 

END; 

RE TURN ( KEF 1 ) ; 



LENGTH: ENTRY! LG TH) ; 

/* RETURNS LENGTH OF TOP LEVEL OF LIST LGTH */ 

DC L ( LGTH » KLG » NLG ) ; 

K LG = LGTH ; 

NLG = 0 ; 

DO WHILE (KLG-i= NIL) ; NLG = MLG + 1; KLG=NCDP (KLG) ; END; 
FSTOR(BNUM)=NLG; 

NLG = NCCNS( MONEtBNUM) ; 

BNUM = BMJM-1 ; 
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RE TURN ( NLG ) 



LAST: ENTRY(JLST) ; 

/* RETURNS THE LAST ITEM ON LIST JLST */ 

OCL ( JLST* KLST) ; 

KLST = JLST ; IF JLST=NIL THEN RETURN (NIL); 

DO WHILE(NCDR(KLST)-.=NIL) ; KLST= NCDR I KL ST ) ; END; 

RETURN! KLST) ; 

NDEFINE: ENTRY(LDEF) RECURSIVE; 

/* LDEF IS A LIST OF PAIRS OF NAMES AND LAMBDA EXPRESSIONS. 
NDEFINE PUTS AN *EXPR» INDICATOR AND THE LAMBDA EXPRESSION 
ON THE PROPERTY LIST FOR EACH NAME. THE VALUE OF NDEFINE 
IS A LIST OF NAMES DEFINED IN THIS WAY */ 

DC L ( LDEF, KDEFT, LDEFT) ; 

IF LDEF = NI L THEN RETURN! NIL); 

LDEF T=NPROP< NCAAR! LDEF), PNAME, NIL) ; 

KDEF T = NREMPRP (NCAAR! LDEF ), EX PR ) ; 

KDEFT=NCDR(LDEFT) ; 

KDEFT = NCONS(NCAR(NCDAR(LOEF) ) ♦ KDEFT ) ; 

KDEFT = NCONS< EX PR, KDEFT ) ; 

KDEFT=NRPLACD(LDE FT, KDEFT) ; 

RETURN! NCO NS ( NC AAR ( L DEF) , NDEF I NE ( NCDR ( LOEF ) ) ) ); 

NDEFLST: ENTR Y ( NDEF , NI ND) RECURSIVE; 

/* THIS FUNCTIONS WORKS JUST LIKE NDEFINE EXCEPT THE INDICATOR 
' NI ND ' SUPPLIED AS AN ARGUMENT IS PUT ON THE PROPERTY LIST 
RATHER THAN 'EXPR*. VALUE IS A LIST OF NAMES DEFINED */ 

DC L (NDEF.NI ND , MDEFT , NDEFT ) ; 

IF NDEF=NIL THEN RETURN! NIL); 

NDEF T=NPROP( NCAAR! NDEF), PNAME, NIL); 
MDEFT=NREMPRP!NCAAR(NDEF),NIND); 

MDEFT= NCDR (NDEFT) ; 

MDEFT=NCONS( NCAR! NCDAR (NDEF) ) , MDEFT ) ; 

MDEFT=NCONS(NIND, MDEFT); 

MDEFT=NRPLACD( NDEFT, MDEFT) ; 

RETURN! NCONS! NCAAR (NDEF) , NDEFLST ( NCDR ( NDEF ), N IND) ) ) ; 
NREVERS: ENTRY! LSTRU) ; 

/* RETURNS THE REVERSE OF THE TOP LEVEL OF LIST LSTRU */ 

DC L (LSTRU, LSTRV) ; 

LSTRV=NIL; 

AREVsIF L STPU = NI L THEN RETURN(LSTRV) ; 
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LSTRV=NCONS< NCAR( LSTRU) , LSTRV) ; 

LSTR U=NCDR ( LSTRU ) ; GO TO AREV; 

MREMPRP: ENTRY ( NP v , NR MP ) ; 

/* DELETES ALL OCCURRENCES OF INDICATOR and RELATED 
PROPERTY FROM PROP. LIST OF ATOM NRM */ 

DC L ( NR w ,NRMP t NRMPl,NRM2 ) ; 

NR MP1 = NRM ; 

DO WHILE ( NCDR(NRMP1 )-> = NIL) ; 

IP NEQ(NCADR(NRMP1),NRMP)=T THEN 

NRM2=NRPLACD(NRMP1,NCDDDR(NRMPI) } ; 

ELSE NRMPI=NCDR(NRMP1 ) : 

E NO ; 

RE TURN ( NIL) ; 

NFLAG: f N TR Y ( F L ST , F I D ) ; 

/* PUTS THE C LAG INDICATOR 'FID' ON THE PROPERTY LIST 
OF EACH ATOMIC SYMBOL ON LIST • FLST * IMMEDIATELY 
FOLLOWING THE ATOM HEADER */ 

DC L ( FLST,FID,FLST1,FLST2) FIXED BIN; 

FLST1 =FLST ; 

NF LG : I F F LST1 =NI L THEN RETURN ( N I L ) ; 

ELST2=NRPLACD(NCAR (FLST1 ) »MCONS (FID, NCDAR ( FLST1) )) : 
FLST1=NCDP (FLST1 ) ; 

GO TO NFLG; 

NREMFLG: ENTRY( RMFG ,RID) ; 

/* REMOVES ALL OCCURRENCES OF FLAG 'RID' FROM THE PROPERTY 
LIST OF ALL ATOMIC SYMBOLS ON LIST 'RMFG */ 

DC L (RMFG, RID, RMFG1 , RMFG2 , NFG ) FIXED BIN; 

RMFG1 =P MFG ; 

DO WHILE ( PMFG1-=NIL) ; 

RMFC2=NCAR( RMFG I) ; 

DO WHILE (NCDR(RMFG2)-. = NIL); 

IF NEO(NCADR (RMFG2) ,RID)=T THEN 

NFG=NRPLACD(RMFG2,NCDDR (RMFG2J ) ; 

ELSE PMFG2=NCDR (RMFG2) ; 

END ; 

RMEG1=NCDR(RMFG1 ) ; 

END; 

RE TURN ( NI L ) ; 

NOT: ENTRY(NOTARG) ; 

/* RETURNS F IF NOTARG IS TRUE, OTHERWISE RETURNS T */ 

DC L NOTARG; 
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IF NOT ARG = F I NOT ARG=NIL THEN RETURN ( T I ; 
RETURN ( F ) ; 



NTRACE: ENTRY ( TRLST) ; 

/* PUTS TRACE INDICATOR ('FLAG* I ON THE PROPERTY LIST 
OF EACH ATOMIC SYMBOL IN LIST TRLST */ 

DC L TRLST FIXED BIN; 

RETURN (NFLAG( TRLST t FLAGI ) ; 

NUNTRCE : ENTRY! UTRL); 

/* REMOVES TRACE INDICATORS PLACED BY FUNCTION TRACE */ 

DCL UTRL FIXED BIN; 

RETURN(NREMFLG(UTRL t FLAGM ; 

NADD1: ENTRY! NADI ) ; 

/* ADDS ONE TO THE VALUE REPRESENTED BY NADI */ 

DCL ( NADI t NAD2 ) ; 

FSTOR(BNUM)=FSTOR (NCDR(NADl U+l; 

NAD2 = NCCNS( MONEt BNUM) ; 

BNUM=BNUM-1 ; 

RETURN! NAD2) ; 

NSUB1 : ENTRY! NSB1 ) ; 

/* SUBTRACTS ONE FROM THE VALUE REPRESENTED BY NSB1 */ 

DCL (NSB1,NSB2J; 

FSTOR! BNUM)=FSTOR (NCDR(NSBI) 1-1; 

NSB2 = NCONS ! MONE» BNUM) ; 

BNUM=BNUM-1 ; 

RETURN! NSB2 ) ; 

END LISPB; 
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LISPC: PROC; 

/* LISPC: SYNTAX £ LEXICAL ANALYSIS */ 

NKcAD: FNTRY BIN FIXEO; 

/*' THIS PROCEDURE IS CALLED GNCE PER S-EX PR ESS I ON . 
POINTER TO THE S-EXPRESSIGN TREE IT HAS BUILT. 
”-l" uN AN "END LISP" INPUT, AND A "-2" WHEN IT 
COMMAND, I.E. ONE WHICH ENDS IN A */ 

DECLARE 

ACCUM CHARI 30 ) EXTERNAL, 

ASCTR BIN FIXED EXT, 

ASTAG RIT(l) EXT, 

6NUM BIN FIXED EXT, 

BP BIN FIXED EXTERNAL, 

BUFFER CHAP<72) EXTERNAL, 

BUFFNO BIN FIXED EXTERNAL, 

CADD BIN FIXED EXTERNAL, 

COUNT BIN FIXED EXTERNAL, 

CTAG B I T ( 1 ) EXT, 

CTR BIN FIXED EXTERNAL, 

DOTTAG 8IT(1) STATIC ALIGNED, 

ERRTAG BIT(I) EXT, 

1 FCB EXT, 

2 COMMAND CHARI8 ) , 

2 FILENAME CHAR ( B ) , 

2 FILETYP5 CHARI8) , 

2 CARO NUMBER BIN FIXED<31,0), 

2 STATES BIN FIXFD(31,0) , 

2 CARD BUFFER CHAR(80) , 

INTAG 81 T ( IT EXT, 

JJ BIN FIXED EXT. 

LDIG FIXED BINI31) STATIC, 

L COUNT BIN FIXED EXT, 

LINE BIN FIXED EXTERNAL, 

MODE BIN FIXED EXT, 

MODETAG BIT(l) EXT, 

MONE BIN FIXED INITIAL! -U EXT, 

MTWO BIN FIXED INITlAL(-2) EXT, 

NIL BIN FIXED EXTERNAL, 

N127 BIN FIXED STATIC, 

PLEV BIN FIXED EXTERNAL, 

POSIT BIN F I XED (31) EXTERNAL, 



IT RETURNS THE 
IT RETURNS A 
SCANS A SUPERV 
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PTAG 8 1 T ( 1 ) EXT, 

RESULT BIN FIXED EXTERNAL, 

RE1TAG BIT(l) EXT, 

SEXP BIN FIXED EXTERNAL, 

STAC (200) BIN FIXEDI31) EXTERNAL, 

STKTAB BIT(l) EXTERNAL, 

S WTCH (1:3) LABEL! ATM, DIG, SPEC) 

INITIAL! ATM, DIG, SPEC), 

T BIN FIXED EXTERNAL, 

TCOUNT BIN FIXED EXTERNAL, 

VARC CHAR ( 25 ) VARYING; 

N127=127; D0TTAG='0'B; 

IF -STKTAB THEN 

DO; Rp=0; JJ=-1 ; BUFFN0=BUFFN0+1; 

END; 

ELSE DO; IF -MODETAG THEN 

DO; TC0UNT=0 ; IF -REIT AG THEN BP=72; CTAG=‘1»B; 
END; 

ELSE TCOUNT=l; 

CTR=2 00 ; SEXP , PLEV=0 ; JJ=1; 

END; 

CONT: CALL SCAN; 

IF RESULT=0 THEN RETURN! MONE) ; /* 'END LISP* WAS INPUT */ 

IF SUBSTR! ACCUM, COUNT, 1)='$» THEN RETURN! MTWO ) ; 

IF STKTAB f. INTAG THEN DO; CALL INCWRK; INTAG='0'B; END; 
GOTO SWTCH ( RESULT) ; 

ATM: CALL HASH; /* HASH CODE */ 

IF -STKTAB THEN 

DO; IF BUFFN0=2 I BUFFN0=3 THEN 

DO; L=L I NE ; CALL INIT1IL); END; 

GOTO IN; 

END; 

IF JJ<0 THEN 

IN: DO; CALL ENTER! POSIT) ; JJ=1 ; IF STKTAB THEN 

DO; L=NE VAL2 ; IF L<0 THEN RETURN(SEXP ) ; END; 

ELS.E DO; L = L I NE ; LINE = LINE+1; 

IF BUFFN0>4 THEN 

IF BUFF N0=1 3 THEN CALL INITL3(L); 

ELSE CALL INITL2(L); 

ELSE CALL INITL(L) * 

END; 

GOTO CONT; 

END; 

JJ=LOCKUP( POSIT) ; IF JJ<0 THEN GOTO IN; 
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THEN RETURN ( S EXP ) ; END; 



DIG 



SPtC 



END; 



CNT : 



ELSE DO; IF STKTAB THEN 

DO; L = NEVAL2; IF L<0 
GOTO CONT; 

END; 

LDIG=SUBSTR(ACCUM»l t COUNT ) ; 

IF M0DE=7 THEN LDIG=-LD IG ; 

FSTOR ( BNUM) =LDIG; CADD=NCONS( MONEf BNUM) ; 
BNUM=BNUM-1; FSTOR ! BNUM ) =0 ; 

L=NSTACK( CADD) ; GOTO CONT; 

: IF MODE =6 THEN DO; PLEV=PLEV+1; GOTO CNT 
IF MODE =4 THEN DO; L = 1 ; RETURN ( L ) ; END; 

IF MODE = 1 6 THEN GOTO CONT; 

IF MODE =7 THEN 

DO; PLE V = PLE V-l ; 

IF PLE V<0 THEN 

DC; DISPLAY ( '*1 1 : PARENTHESES ERROR*'); 

ER RT AG= ' 1 ' B ; RETURN ( MTWO ) ; 

END; 

IF NE VA L3<0 THEN R ETURN < S EX P ) ; GOTO CONT; 

END; 

IF MODE =2 THEN DO; DOTT AG = ' 1 ' B; GOTO CNT; END; 
DISPLAY! • ILLEGAL SPECIAL CHARACTER IN S-EXPRESS ION • 
RETURN! NL27) ; 

: L=NSTACK! MODE) ; GOTO CONT; 



EVALl: ENTRY; 

/* EVALUATES AN AT CM S-EXPRESSION */ 

MCDETAG = -«MODETAG; L = NUNSTK; SEXP=L; 
RETURN; 



NEVAL2: ENTRY BIN FIXED; 
L=NSTAC K( CADD ) ; 

IF L=2 00 THEN 

DO; CALL EVALl ; 
RETURN! SEXP) ; 



PETURN(MONE) ; END; 



N5VAL3 : ENTRY BIN FIXED; 

/* CALLED UPON SCANNING A ')'. RETURNS 
IF DOTTAG THEN GOTO DOTT; 

L1=NUNSTK ; 

IF LI =6 THEN /* NIL LIST; !) 

DO; L1=NIL; 

L=NSTACK(L1) ; IF PLEV=0 THEN 

DC; MODETAG=-» MO DETAG; SEXP = L1; 
RE TURN ( L 1 ) ; 



A ”-l" ON PL EV=0 . */ 

*/ 

RETURN(MONE) 



END 
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END; 

IF LI =2 THEN GOTO CH ; 

SEXP = NCONS( LI ,NIL> ; 

CH: DO WHILE! 1 1 • B I ? LI =NUNSTK ; 

IF LI =6 THEN 

DO; IF PLEV=0 THEN 

DO; MODETAG^-MODET AG: R ETURN! MON E ) ; END; 
LI=NSTACK( SEXP) ; RETURN! LI); 

END; 

SEXP=NCONSl LI , SEXP) ; 

END; 

DOTT: LI =NUNSTK ; L2 =NUNSTK; 

IF L2-=2 THEN 

DO; DOTT AG = ' 0 ' B j GOTO CH; END; 

L =NUNSTK ; SEXP=NCONS!L,Ll ) ; 

L1=NUNSTK ; IF PLEV=0 THEN 

DO; MODE TAG=-MODET AG; RETURN! MONE ) ; END; 
L1=NUNSTK ; L = NSTACK(L1) ; 

IF LI =2 THEN DOTTAG='l'B; 

ELSE DOTT AG= 'O • B; 

L1=NSTACK( SEXP) ; RETURN(Ll); 

NSTACK : ENTRY! J3 ) BIN FIXED; 

DECLARE 
J3 BIN FIXED, 

LI BIN FIXED; 

STAC(CTR) =J3; L1=CTR ; CTR=CTR-1; RETURN! LI); 

NUNS TK : ENTRY BIN FIXED; 

DECLARE 
J4 BIN FIXED; 

CTR=CTR+ 1 ; J4 = ST AC ( CTR ) ; STAC(CTR)=0; RETURN! J4); 

INCWRK: ENTRY; 

IF RE1TAG THEN GOTO JP1; 

CALL TEXTWRK(LCOUNT) ; 

IF ASTAG & C TAG THEN ASCTR = ASCTR + 1; 

IF CTAG THEN LC0UNT=LC0UNT+1 ; 

JP 1 : IF PTAG THEN 

DO; DISPLAY! • • ) ; 

IF -CTAG THEN DISPLAY!' ' I I BUFFER ) ; 
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ELSE DISPLAY (LCQUNT-1 | | • ' I I BUFFER » : 

END; 

CTAG='0'B ; 

RETURN; 

HASH; FNTRY ; ■ 

POSI T=MOD ( UNSPEC( SUBS TR (ACCOM, 1,3) )+CCUNT+ 

16777214, N127)+l ; 

RETURN; 

/* LEXICAL ANALYSIS PHASE */ 

SCAN: ENTRY; 

DECLARE 

ALPBASE BIN FIXED EXTERNAL, 

CHARSET CHAR ( 52 ) EXTERNAL, 

DIGBASE BIN FIXED EXTEPNAL, 

FF BIN FI XED STATIC, 

KK BIN FI XED ST AT I C , 

NO BIN FIXED, 

NUMBERSWt 0 r 3 ) LABEL ( SCANMANT , SC ANFRAC,SCANEXSN, SCANEX) 
I NI TI AL ( SCANMANT ,S CANFRAC, SCANEXSN, SCANEX) 
PNAME BIN FIXED EXTERNAL, 

READER ENTRY! CHAR (25) V ARY I NG , CHAR ( 7 2 ) ) RETURNS ( B I T ( 1 ) ) 
SWl TCH ( 0:3) LABEL ( DEBL ANK, I DENT , D I GI T , QNUMBER ) 

INI TI AL (DEBL ANK, I DENT, DIG IT, QNUMBER), 

TT CHAR(l) STATIC; 

RE SUL T, COUNT, FF,M0DE=0; 

ACC UM= * •; 

DO WHILE! *1 »B) ; 

IF BP=72 £ T C CUNT=2 THEN DO; TC0UNT=0; RETURN; END 
BP =BP+1 ; 

IF B P>72 THEM 
DO; IF RE1 TAG THEN 

DO; CALL GBUFF; BU F FER =SU BST R ( C ARD BUFFER, 9, 72 ) ; 
GOTO JP; 

END; 

IF CTAG THEN VARC='CALL EVALOUOTE, ARGS:‘; 

ELSE VAR C= * •; IF -.R FADER { VAR C, BUFFER ) THEN 

DO; RE SULT=0 ; RETURN; FND; 

JP: BP=1 ; I NTAG= ' 1 * B ; 

END; 

TT= SUB STR ( BUFFER, BP,L) ; KK= I NDEX ( CHARSET , TT ) ; 
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GOTO SWI TCH ( RESULT) ; 

OEBLANK: IF KK>1 THEN 

IF KK>AL P8AS E THEN 

IF KK>OIGBASE THEN RESULT=2; 

ELSE RESULT = 1 5 

ELSE IF KK=7 | KK=8 THEN /* +-.*/ 

DO: RESULT=3 ; MODE=KK; 

END ; 

ELSE /* SPECIAL CHARACTER*/ 

DC; MODE=KK; COUNT=l; StJBSTRI ACCUM, 1, 1 ) = TT; 
RE S ULT=3 ; GOTO RETURNL ; 

END; 

ELSE GOTO XIT: 

GOTO STORE T ; 

IDENT: IF KK> AL PBASE THEN GOTO STORET; 

IF KK=3 THEN GOTO STORET; 

GOTO BACKUP; 

DIGIT: GOTO NUM8ERSW( FF ) ; 

SCANMANT: IF KK>DIGBASE THEN GOTO STORET; 

IF KK=2 THEN /* DECIMAL POINT */ 

DO; mode=1; FF=1 ; 

GOTO STORET; 

END; 

ELSE GOTO CHECKEXP; 

SCANFRAC: IF KK>DI GBASE THEN GOTO STORET; 

CHECKEXP: IF TT= *E ' THEN 

DO; FF=2; MODE=l; 

GOTO STORET; 

END; 

GOTO BACKUP: 

SCANEXSN : IF KK=7 j KK=8 THEN 
DO; FF=3; GOTO STORET; 

END; 

IF KK>DIGBASE THEN 

DO; FF=3; GOTO STORET; 

END; 

GOTO BACKUP; 

SCANEX: IF KK>DI GBASE THEN GOTO STORET; 

GOTO BACKUP; 

QNUMBER: IF KK>DIGBASE THEN 
DO; RESULT=2; 

IF MODE=5 THEN 

DO; MODE=l ; FF=1; 

END; 

ELSE M0DE=0; 
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GOTO STOPET; 

END; 

GOTO BACKUP; 

STCRFT: IF COUMT>30 THEN GCTO RETURNL : 

COUNT =C OUNT+ 1 ; 

SUBSTR ( ACCOM , COUNT , 1 ) =TT; 

X I T : END: 

BACKUP: 3P = BP-1 ; 

RETURNL: RETURN; 

ENTER: ENTRY! J 1 ) ; 

/* THIS PROCEDURE RECEIVES THE LOCATION IN OBLIST OF AN A TO** AND 
THEN SETS UP THF ATOM WITH ITS PRINT NAME STRING, SETTING 
THE ADDRESS OF ITS HEADER CELL TO THE EXTERNAL VARIABLE * CADD ' . 

DECLARE 

FSTOR ( 0:16000) BIN FIXEDI31) EXT, 

J1 BIN FIXED, 

LB 32 B I T ( 32 ) ALIGNED, 

M CQUNT BIN FIXED, 

PN BIN FIXED, 

TF BIN FIXED, 

TWO 16 FIXED BIN (31) STATIC I NIT I AL ( 65536 ) ; 

FSTOR! Jl) =FSTCR(J1)+TWC16: 

L =N I L ; MC0UNT=CCUNT-1 ; 

DC 1=0 TC MCCUNT; 

K = COUNT- I ; TE =UNS PEC (SUBSTR (ACCUM,K, IN; 

L = NC CNS ( TE » L ) ; 

END ; 

PN=NCONS ( NCONS ( MONE, NCGNS ( PNAME, NCONS ( L, N IL ) ) ),NIL ) ; 
CADD=NCAR !PN) ; /* CADD=ADDRESS OF THF ATOM HEADFR CELL */ 

IF NC AR ( J 1 ) =1 THEN L = NRPL ACD! J1 , PN ) : 

ELSE DO; 

L = NC DR ( J 1 ) ; 

DO WHILE (NCDR(L)-.*NIL); L=NCDR(L); end: 

K=NRPLACD!L, PN) ; 

END; 

RETURN; 

LOOKUP: ENTRY(J2) BIN FIXED; 

/* THIS PROCEDURE RECEIVES A LOCATION IN OBLIST AND THEN LOOKS AT 
THE ATOMS STRUNG FROM THAT LOCATION. IF IT FINOS A MATCH WITH 
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THE ATOM STORED IN ACCUM THEN IT RETURNS A "1", SETTING 
EQUAL TO THE ATOM HEADER CELL, ELSE IT RETURNS A "-1". 

DECLARE 
CPI CHARI 1) , 

CP2 CHARI I) , 

II BIN FIXED STATIC, 

J2 BIN FIXED, 

TE1 BIN FIXED: 

NO=NC AR I J2 ) : 

IF N0=0 THEN RE TURN I MONE) ; 

TE1=NCDR I J2) ; 

DO 11=1 TO NO; 

TE=NCAP I TE1) ; 

LL=NGET(TE, PNAME ) : 

KK=1 * 

DO WHILE I KK<=COUNT ) ; 

CP1=SUBSTRI ACCUM, KK,1) ; 

UNSPEC(CP2) = SUBSTR(UNSPECIFST0RILU ), 9, 8) 
IF CP1-»=CP2 THEN GO TO LOOKA; 

KK=KK+1 ; LL=NCDRILL); 

IF LL=NI L THEN GO TO LOOKA: 

END; 

LOOKA: IF KK=COUNT+l THEN 

DO; CADD=TE; TE=1; RETURNITE); END; 

TE1 = NCDR I TE1 ) ; 

END; 

RETURN! MGNE) ; 

END LISPC; 



CADD 

*/ 
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/* LISPD: interpreter, print l trace, and fsurr functions */ 

NEVALQ: PROC ( FNFVG » AEVQ) ; 

DECLARE 

APPLY BIN FTXFD EXT, 

APVAL BIN FIXED EXT, 

AE VO BIN FIXED, 

BFREE BIN FIXED EXT, 

BLANK BIN FIXED EXT, 

BUFFCON BIN FIXED STATIC, 

CAPPLY CHAR!5) I NI TI AL ( ’APPLY ’ ) STATIC, 

CEVAL CHARIM I NI T I AL ( ' EV AL • ) STATIC, 

CEVALOUOTE CHAR(9) I NI T I AL ( ’ EVALOtJOT E • ) STATIC, 
CEVCON CHAR ( 5 ) I NI TI AL ( » EVCON • ) STATIC, 

CEVLIS CH AR ( 5 ) INITIAL! 'EVLIS* ) STATIC, 

COMMA BIN FIXED EXT, 

COND BIN FIXED EXT, 

DASH BIN FIXED EXT, 

DOLLAR BIN FIXED EXT, 

EIGHT BIN FIXED INITIAL (8) STATIC, 

EOSIGN BIN FIXED EXT, 

ERFLAG BIN FIXED STATIC, 

EVAL BIN FIXED EXT, 

EVCON BIN FIXED EXT, 

EVLIS BIN FIXED EXT, 

EXPR BIN FIXED EXT, 

F BIN FIXED EXT, 

FEXPR BIN FIXED EXT, 

FIVE BIN FIXED I NI TI AL I 5) STATIC, 

FLAG BIN FIXED EXT, 

FNEVO BIN FIXED, 

FNCTION BIN FIXED EXT, 

FCUP BIN FIXED INITIAL!*) STATIC, 

FSTOR (0:16000) BIN FIXEDOI) EXT, 

FSUBR BIN FIXED EXT, 

FUNARG BIN FIXED EXT, 

LABEL BIN FIXED EXT, 

LAMBDA BIN FI XED EXT, 

LAST ENTRY EXT, 

LENGTH ENTRY EXT, 

LPAR 8 1 N FIXED EXT, 

NBLKS BIN FIXED STATIC, 

NIL BIN FIXED EXT, 

NINE BIN FIXED INITIAL!?) STATIC, 
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NULL ENTRY EXT, 

ONE BIN FIXED INITIAL(l) STATIC, 

PERIOD BIN FIXED EXT, 

PLUSS BIN FIXED EXT, 

PNAME BIN FIXED EXT, 

PRBUFF CHAR ( 128 ) STATIC, 

PRNAHE RETURNS! CHAR (30) VARYING), 

QUOTE BIN FIXED EXT, 

RECUR BIN FIXED STATIC, 

RPAR BIN FIXED EXT, 

SEVEN BIN FIXED INITIAU7) STATIC, 

SIX BIN FIXED I NIT I AL ( 6 ) STATIC, 

SLASH BIN FIXED EXT, 

STAR BIN FIXED EXT, 

SUBR BIN FIXED EXT, 

T BIN FIXEO EXT, 

THREE BIN FIXED INITIAL(3) STATIC, 

TRACE BIN FIXED INITIAL(O) EXT, 

TRACE I BIN FIXED I Nl T I AL ( 0 ) EXT , 

TWO BIN FIXED INITIAH2) STATIC, 

VAL1 BIN FIXED; 

/* EVALQUOTE */ 

NBLKS-1 ; ERF LAG »RECUR=0; PRBUFF* ( 128 ) ' •; 

IF NATOM( FNEVQ) =T THEN /* CHECK FOR TOP LEVEL SP. FORMS */ 

DO; IF NGET(FNEVQ,FEXPR)-.= NIL THEN 

DO; VAL1=NEVAL(NC0NS( FNEVQ, AEVQ),NIL); GOTO EXEVQ; END; 

IF NGET ( FNEVQ,FSUBR)-»=NIL THEN 
DO; VAL1=NEVAL(NC0NS( FNEVQ, AEVQ), NIL) ; GOTO EXEVQ; END; 
END; 

VAL1 =NAPPLY( FNEVQ, AEVQ, NIL) ; 

EXEVQ: IF ERFLAOO THEN VAL1=NIL; DISPLAY ( ' *1; 

DISPLAY ( 'VALUE IS:'); 

RETURN! VALl ) ; /* RETURN TO LISP SUPERVISOR */ 

NAPPLY: PROC (FN,ARGS,NALST) RECURSIVE; 

/* APPLY: BINDS VARIABLES AND FUNCTION NAMES ON THE A-LIST AND 
HANDLES FUNARG DEVICE (FUNCTIONAL ARGUMENTS) */ 

DCL (ABIND,FN,ARGS,NALST,CARFN,NEXPR,NSUBR,VAL2)FIXED BIN, 
( TRC A»TRC1 ) FIXED BIN INITIAL(O), 

FNCTN CHAR (30 ) VARYING; 

IF NPROP(APPLY , FL AG, NIL) -»=NI L THEN 
DC; TRC A=1 ; 

CALL PTRACE ( C APPLY, FN,ARGS,NALST, THREE, TWO ) ; 
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end; 

IF F N = NI L THEN 

DC; VAL2=NIL; GC TO EXAP; END; 

IF NATO*MFN)=T THFN 

/* LOOK FOR BINDING OF FUNCTION ON PROP. LIST */ 

DO: FNCTN=PRNAME< FN) ; 

/♦SlJRR*/ NSUBR=NGET (FN,SU8P ) ; 

IF NSUBR-»=NI L THEN 

DO; IF NPROP(FN*FLAG»NIL) -»=N IL THEN TRACE1 = 1 
VAL2=NPROC(NSUBR, ARGS , F , FNCTN ) ; 

GO TO EXAP; END; 

/*EXPR*/ NEXPR=NGET ( FN, EXPRI ; 

IF NEX PR -»= N I L THEN 

DO; IF NPROP(FN,FLAG,NIL)-.=NIL THEN 

DO; CALL PTRACE! FNCTN, ARGS, NIL, N IL , ONE, I 
TRCl=l; END; 

VAL2=NAPPLY (NEXPR, ARGS, NALST); 

IF TRC I =1 THEN 

DO; CALL PT R AC E ( FNCT N, VAL2, N IL , N IL , 
ONE, ONE); TRC1=0; END; 

GO TO EXAP; 

END; 

/* LOOK FOR BINDING OF FUNCTION ON A-LIST */ 

ABIND=NSASSOC(FN, NALST ,TWO) ; 

IF ABI ND=T WO THEN 
DO; ERFLAG=2; 

DISPLAY! 'UNDEFINED FUNCTION - APPLY'); 

GO TO EXAP; 

END; 

VAL2=N APPLY ( NCDR ( AB I ND ) , ARGS , N AL ST ) ; 

GO TO EXAP; 

END; 

C A RF N=NC AR ( FN ) ; 

/* CHECK FOR SPECIAL FORMS */ 

/♦LAMBDA*/ IF NEQICARFN, LAMBDA) =T THEN 

/* BIND VARIABLES AND ARGUMENTS ON A-LIST */ 

DO; VAL2 =NEVAL ( NC ADDR ( FN ) , N CONC ( NPA I R ( NCADR ( FN ) , ARGS), 
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/* LABEL */ 



NALST) ) ; GO TO EXAP; END; 

IF NEQ(CARFN,LABEL)=T THEN 

/* CONS THE FUNCTION NAME AND DEFINITION, 
AND CALL APPLY */ 



ADD TO A-LIST, 



DO ; VAL2=N APPLY ( NCADDR ( FN ) , ARGS, NCONS ( NCONS ( NC ADR ( FN ) , 
NCADDR(FN) ), NALST) ) :GO TO EXAP; END; 

/♦FUNARG*/ IF NEQ(CARFN,FUNARG)=T THEN 

DO; VAL2=N APPLY (NC ADR ( FN ), ARGS , NCADDR ( FN ) ) ; 

GO TO EXAP; END; 

VAL2 =NAP PLY (NEVAL(FN, NALST), ARGS » NALST ) ; 

EXAP: IF EPFL AG>0 THEN VAL2=NIL; 

IF TRCA=i THEN DO; 

CALL PTRACE(CAPPLY,VAL2, NIL, NIL , ONE, ONE ) ; 

TRC A=0 ; 

END ; 

RETURN! VAL2) ; 

END NAPPLY; 



/* EVAL */ 



NEVAL: PRGC(FORM,ALST) recursive; 
ALUATES FORMS */ 

DCL ( TRCE , NCEV, TRFEX) FIXED BIN; 



/♦TRACE*/ 



/* NIL */ 
/♦NUMBER*/ 
/* ATOM */ 



uui \ i r\^c » INC c v t irvrcAj riAcu oiiNi 

DCL (FORM, ALST, ALBND ,NAP , C FORM, ALBD, VAL 3, INDIC , TR F X ) 
FIXED BIN, FNCTN CHAR(30) VARYING; 

IF NPROP( EVAL, FLAG, NIL )-*=NIL THEN 
DO ; TRCE=1 * 

CALL PTRACE(CEV AL, FORM, ALST, NIL, TWO, TWO) ; 

END; 

IF FORM=NI L THEN DO; VAL3=NIL; GO TO EXEV; END; 

IF NUMBERP(FORM)=T THEN DO; VAL3=FORM ; GO TO EXEV; END; 

IF NATOM(FORM)=T THEN 

/* LOOK FOR VALUE BINDING ON PROP. LIST */ 

DO; NAP=NGET(FORM,APVAL); 

IF NAP-»=NI L THEN DO; VAL3 = NCAR ( NAP ) ; GO TO EXEV; END; 

/* LOOK FOR VALUE BINDING ON A-LIST */ 

ALB ND=NS ASSOC (FORM, ALST, THREE ) ; 

IF AL BND=THREE THEN 
DO; ERFL AG=3 ; 

DI SPLAY( ‘UNBOUND VARIABLE - EVAL'); 
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GO TO EXEV 



END ; 

VAL3=NCDR( ALPND) ; GO TO EXEV; 

END; 

CFOR v=KCAR(FORMJ ; 

/* CHFCK FOR SPECIAL FORMS */ 

/*QLOT£*/ IF CFORM=QUOTE THEN 

DO; VAL3=NC ADR ( FORM ) ; GO TO EXEV; END; 

/*FUI\CTION*/IF C FOP M = FNC T I ON THEN 

DO ; VAL3=LIST3( FUNARG,NCADR ( FORM) , ALST ); 

GC TO EXEV; END; 

/* COND */ IF C FOP M =C OND THEN 

DO; VAL3=NEVCON( NCDP ( FORM) , ALST ) ; GO TO EXEV; END; 

/* TEST FOR PROG HERE WHEN IT IS IMPLEMENTED */ 

IP NATOM(CFORM) =T THEN 
DO; FNCTN=PRNAME(CFORM) ; 

/* LOOK FOP FUNCTION DEFINITION ON PROP. LIST */ 

I NO I C=NGET (CFORMtSURR) ; IF INDIC-=NIL THEN 
DC; IF NPROP(CFORM,FLAG,NlL)-»=NIL THEN TRACE1=T; 
VAL3=NPR0C(INDIC*NEVL IS ( NCDR ( FORM ) , AL ST ) , 

F » FNCTN ) ; GO TO EXEV; END; 

I NDIC=NGET( CFCRM,EXPR) ; IF INDIC-*=NIL THEN 
DO; NCEV=NEVLIS (NCDR ( FORM), ALST) ; 

IF NPROP(CFOPM,FLAG,NIL)-,= NIL THEN 
DO; TPFX=1; 

CALL PTRACE ( FNCT N, NC EV , NI L , N I L , ON E , TWO 

END; 

VAL3=N APPLY ( INDIC, NCEV, ALST ) ; 

IF TREX=1 THEN 
joq* TREX — 0* 

CALL PT RACE ( FNCTN, VAL3, NIL, NIL, ONE, ONE) 

END; 

GO TO EXEV; 

END ; 

I ND I C = NG ET ( CFORM , FSUBR ) ; IF INDIC-.= NIL THEN 
DO; IF NPRO P(CFORM, FLAG, NIL) -•= NIL THEN TRACE1 = T ; 
VAL3=NPR0C( INDI C,NCDR ( FORM ), ALS T , FNCTN ) ; 

GO TO EXEV; END; 

I NDI C=NGET (CFORM, FEXPR); IF INDIC-*=NIL THEN 



/*SUPR*/ 
/*E XPR* / 

/♦FSLBR*/ 

/*FEXPR*/ 
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00; IF NPROP ( CF0RM,FLAG,NIL)-»=NIL THEN 
00; TRFEX =1 ; 

CALL PTR ACE (FNCTN, NCDR (FORM), NIL, N IL , ONE, TWO) ; 
END; 

VAL3=NAPPLY ( I NO I C, L I ST2 ( NCDR ( FORM ) , ALST), 

ALST) ; 

IF TRFEX= 1 THEN 
DO* TRE X =0 ? 

CALL PTRACE(FNCTN»VAL3,NIL»NIL,ONE,ONE); 

END; 

GO TO EXEV; 

END; 

/* LOOK FOR FUNCTION DEFINITION ON A-LIST */ 

AL8D=NSASS0C(CF0RM, ALST, ONE); 

IF ALBD=GNE THEN 
DO; ERFLAG=1; 

DI SPLAY ( ’UNDEFINED FUNCTION - EVAL'); 

GO TO EXEV; 

END; 

VAL3=NE VAL (NCONS(NC DR (ALBD), NCDR ( FORM )), ALST) ; 

GO TO EXEV; 

END; 

VAL3=NAPPLY!NCAR(FGRM) , NEVLIS (NCDR (FORM), ALST), ALST) ; 

EXEV: I F ERFLAG>0 THEN VAL3=NIL; 

IF TRCE=1 THEN DO; 

CALL PTRACE(CEVAL»VAL3»NIL»NIL»0NE»0NE); 

TRCE=0; 

END; 

RETURN! VAL3) ; 

END NEVAL; 

/* EVLIS */ NEVLIS; PROC ( MEV, AEV) RECURSIVE; 

/* EVALUATES ITEMS IN A LIST */ 

DCL (MEV,AEV,VALA) FIXED BIN; 

IF MEV=NIL THEN RETURN(NIL) ; 

RETURN! NCONS ( NEVAL ! NCAR ! MEV ) , AEV ) , NEVL IS (NCDR ( ME V) , AEV) ) ) ; 
END NEVLIS; 

/* EVCON */ NEVCON: PROC (CEVC,AEVC) RECURSIVE; 

/* EVALUATES CONDITIONAL FORMS */ 

DCL (CEVC,AEVC,VAL5) FIXED BIN; 

IF CEVC=NIL THEN 
DO; EPFLAG=4; 
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01 SPLAY( 'CONDITIONAL UNSATISFIED - FVCONM; 

GO TO EXE VC J 

END; 

VAL5=NEVAL(NCAAR( CEVC) t AEVC) : 

IF VA L5-»=F THEN 

IF VAL5-» = NI L THEN 

DO; VAL5=NEVAL(NCADAR (CEVC ), AEVC); 

GO TO EXEVC; 

END ; 

VAL5=NEVC0N(NCDR (CEVC) ,AEVC) ; 

EXEVC: IF ERFt AG>0 THEN VAL5=NIL; 

RETURN! VAL5 ) ; 

END NEVCON; 

PRNAME: PROC(JPN) CHAR(30) VARYING; 

/* RETURNS CHARACTER STRING OF PRINT NAME OF FUNCTION 'JPN' 
WHICH IS LIMITED TO 30 CHARACTERS */ 

DC L ( JPN.PRN1 ,KPN,I) FIXED BIN, 

FNCTN CH AR (3 0) VARYING, 

CH CHAR ( I ) ; 

PRNI=NGET( JPN,PNAME) ; 

F NCTN= (30) * •; 

1=1; KPN = PRN1 ; 

DO WHILE (KPN-.= NIL); 

UNSPEC(CH)=SUBSTR(UNSPEC(FSTOR(KPN) ),9,8) ; 
SUBSTR(FNCTM,I,1)=CH; 

1=1+1; KPN=NCDR (KPN) ; 

END; 

F NC TN= SUBS TP (FNCTN, 1,1-1 ) ; 

RE TURN ( FNCTN) ; 

END PRNAME; 



NPROC: PROC(IX,NARGS,FINDX, FNCTN) RECURSIVE; 

/* RETURNS VALUE OF SYSTEM SUBR AND FSUBR FUNCTIONS. 

NUMBER OF SYSTEM FUNCTIONS IS LIMITED TO 255 WHICH 
IS THE MAX NUMBER REPRESENTABLE IN 8 BITS */ 

DC L (IX, NARGS »FINDX» IND, KAR GS,ARG(3) ,VAL6,JX,J)FIXED B 
DCL A ( 1 2 S ) LABEL ; 

DC L FNCTN CHAR(30) VARYING, AR ( 3 ) LABEL ; 

IF F I NDX-»=F THEN /* FSUBR */ 

DO; IND = SUBSTR(UNSPEC (FSTOR( IX ) >,9,8); 

IF TRACE1=T THEN 

CALL PT RACE (FNCTN, NARGS, NIL, NIL, ONE, TWO) ; 

GO TO A( IND) ; 
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end; 



/* SPREAD ARGUMENTS INTO STANDARD CELLS ARG ( 1 ) , ARG( 2 ) , FTC */ 



SPRD 



KARG S=NARGS » 

J, JX=1 ; 

IF KARGS =NI L THEN GO TO INDEX; 
ARG(J)=NCAR ( K ARGS ) ; 

KARG S = NC DR ( KARGS) ; 

J = J+1 ; GO TO SPRD; 



/* MAX NO. ARGS = 3*/ 



INDEX; 

AR(1) 
AR ( 2) 
AR ( 3) 



/* GET SUBR NUMBER FROM CAR OF CELL MX' */ 

I ND=SUBSTR <UNSPEC<FSTOR< IX) ) ,9,8) ; 

IF TRACE1=T THEN DO; JX=J-1; GO TO AR(JX); END; 

ELSE GO TO A<IND) ; 

CALL PTRACE(FNCTN,ARG(1)»NIL»NIL»0NE» TWO ) ; 

GO TO A(IND) ; 

CALL PT RACE (FNCTN, ARG <1 )»ARG(2) , N I L, TWO, TWO ) ; 

GO TO A<IND) ; 

CALL PTRACE (FNCTN, ARG <1 ) , ARG<2),ARG( 3 ) ,THREE , TWO) ; 
GO TO A(IND) ; 



/* CONS */ Ad); 
/* CAR */ A ( 3 ) ; 
/* CDR */ A( 2 ) : 
/* EQ */ A( A ) ; 
/* ATOM */ A ( 5 ) ; 
/* CAAR */ A < 6 ) ; 
/* CADR */ A( 7) ; 
/* CDAR */ A ( 8 ) ; 
/* CDDR */ A ( 9 ) ; 
/* CAAAR */ A( 10) 
/* CAADR */ A ( 1 1 ) 
/* CADAR */ A ( 12 ) 
/* CDAAR */ A ( 1 3 ) 
/* CADDR */ A ( 1 4) 
/* CDADR */ A ( 1 5 ) 
/* CDDAR */ A ( 16) 
/* CDDDR */ A ( 1 7) 
/* RPLACA */ A ( 1 8 ) 
/* RPLACD */ A ( 19) 
/* NULL */ A (20) 
/* EOUAL */ A( 2 l ) 
/* APPEND */ A ( 22) 



VAL6=NC0NS ( ARG ( 1 ) , 
VAL6=NCAR< ARG<1) ); 
VAL6=NCDR< ARG<1) ) ; 
VAL6=NE0(ARG(1),AR 
VAL6=NAT0M ( ARG ( 1 ) ) 
VAL6=NCAAR ( ARG( 1 ) ) 
VAL6 = NCADR(ARG(1) ) 
VAL6=NCDAR(ARG<1) ) 
VAL6=NCDDR ( ARG ( 1 ) ) 
VAL6=NCAAAR< ARG<1) 
VAL6=NCAADR ( ARG ( 1 ) 
VAL6=NCADAR(ARG( 1) 
VAL6=NCDAAR ( ARG ( 1 ) 
VAL6=NCADDR(ARG(1) 
VAL6=NCDADR ( ARG( 1 ) 
VAL6=NCDDAR ( ARG( 1 ) 
VAL6=NCDDDR ( ARG( 1 ) 
VAL6=NRPLACA(ARG(1 
VAL6=NRPLACD ( ARG ( 1 
VAL6=NUL L ( ARG ( 1 ) ) ; 
VAL6=NE0UAL ( ARG ( 1 ) 
VAL6=NAPPEND(ARG( 1 



ARG( 2 ) ); GO TO EXPROC; 

GO TO EXPROC; 

GO TO EXPROC; 

G( 2) ) ; GO TO EXPROC; 

; GO TO EXPROC; 

; GO TO EXPROC; 

; GO TO EXPROC; 

; GO TO EXPROC; 

; GO TO EXPROC; 

>; GO TO EXPROC; 

); GO TO EXPROC; 

) ; GO TO EXPROC; 

); GO TO EXPROC; 

); GO TO EXPROC; 

); GO TO EXPROC; 

); GO TO EXPROC; 

); GO TO EXPROC; 

) , ARG< 2) ); GO TO EXPROC; 
) , ARG ( 2 ) ); GO TO EXPROC; 

GO TO EXPROC; 

, ARG( 2 ) ); GO TO FXPROC; 

) , ARG( 2 ) ); GO TO FXPROC; 
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/* 


COPY */ 


A ( 23) ; 


/* 


MEMBER */ 


A ( 24 ) : 


/*■ 


PAIRLIS */ 


A! 2 5) : 


/* 


ASSOC */ 


A! 26) : 


/* 


SUB2 */ 


A ( 2T 1 : 


/* 


SUBLIS */ 


A ( 2 3 ) ; 


/* 


SASSOC */ 


A! 29) : 


/4 


NCONC */ 


A! 30) : 


/* 


ATTRI8 */ 


A ( 3 1 ) ; 


/* 


SUB ST */ 


A ( 32 ) : 


/* 


PROP */ 


A! 33) : 


/* 


GET */ 


A! 34) : 


/* 


PAIR */ 


A! 35) : 




DISPLAY! 'ARG 


/* 


NUMBERP */ 


A! 36) : 


/* 


EFFACE */ 


A! 37) ; 


/* 


LENGTH */ 


A! 38) : 


/* 


LAST */ 


A (39) : 


/* 


DEFINE */ 


A ( 40 ) ; 


/* 


DEFLIST */ 


A (4 1 ) ; 


/* 


CSET */ 


A ( 42 ) : 


/* 


REMPROP */ 


A (43) : 


/* 


FLAG */ 


A ( 44 ) ; 


/* 


REMFLAG */ 


A ( 45 ) : 


/* 


REVERSE */ 


A ( 46 ) : 


/* 


NOT */ 


A ( 4 7 ) : 


/* 


PRIN1 */ 


A ( 48 ) : 


/* 


TERPRI */ 


A ( 49 ) : 


/* 


PRINT */ 


A! 50) : 


/* 


READ */ 


A ( 5 1 ) : 


/* 


EVAL */ 


A( 52) : 


/* 


APPLY */ 


A ( 53 ) ; 


/* 


TRACE */ 


A ( 54 ) ; 


/* 


UNTRACE */ 


A ( 55 ) ; 


/* 


ADD 1 */ 


A (56) : 


/* 


SUB1 */ 


A! 57) : 



VAL6=NC0PY( ARG! 1 ) ) ; GO TO EXPROC; 
VAL6=MEMBER(ARG(1 )»ARG(2) ); GO TO EXPROC: 
VAL6=NPAIRLS ( ARG< 1 ) , ARG( 2 ) , APG( 3 ) ) ; 

GO TO EXPROC; 

VAL6=NASS0C< ARG<1) , ARG( 2) ); GO TO EXPROC; 
VAL6=NSUB2(ARG(1),ARG(2)); GO TO EXPROC; 
VAL6=NSUBLIS ( ARG < 1 ) , ARG! 2 ) ): GO TO EXPROC 
VAL6=NSASS0C ( ARG ( 1 ) » ARG! 2 ) , ARG! 3 ) ) : 

GO TO EXPROC; 

VAL6=NCONC(ARG(l) ! APG(2) >; GO TO EXPROC; 
VAL6=NATTRIB( ARG(1 ) ? ARG(2) ); GO TO EXPROC 
VAL6=NSUBST < ARG ( 1 ) , ARG! 2 > ♦ ARG! 3 ) ) ; 

GO TO EXPROC; 

VAL6 = NPR OP < A RG < 1 ) , ARG ( 2 ) , ARG ( 3 ) ) ; 

GO TO EXPROC; 

VAL6=NGET( ARG(l) ,ARG<2) ); GO TO EXPROC; 
VAL6=NPAIR ( ARG( 1 ) , ARG( 2 ) ) ; 

IF VAL6=N I L THEN 
DO; ERFLAG=5; 

UMENTS NOT LISTS OF EQUAL LENGTH - PAIR') 
END; 

GO TO EXPROC; 

VAL6 = NUMBERP (ARG( I) ) *, GO TO FXPROC; 
VAL6=NEFFACE ( ARG( 1 ) ,ARG( 2) ); GO TO EXPROC 
VAL6= LENGTH! ARG( 1 ) ) ; GO TO EXPROC; 
VAL6=LAST( ARG(l) ) ; GO TO PXPROC; 
VAL6=NDEFINE(ARG(1) ); GO TO EXPROC; 
VAL6=NDEFLST ( ARG( 1 ) t ARG( 2 ) ); GO TO EXPROC 
VAL6=NCSET ( ARG ( 1 )» ARG( 2 ) ) ; GO TO EXPROC; 
VAL6 = NREMPRP(ARG( 1) ,ARG(2) )*. GO TO EXPROC 
VAL6=NFLAG(ARG( 1 ) , ARG! 2) ) ; GO TO EXPROC; 
VAL6=NREMFLG( ARG ( 1 ) , ARG! 2 ) ) ; GO TO EXPROC 
VAL6=NREVERS(ARG(1) ); GO TO EXPROC; 
VAL6=NGT ( ARG! 1) ): GO TO EXPROC; 
VAL6=NPRIN1(ARG(1) ); GO TO EXPROC; 
VAL6=NTERPRI ; GO TO EXPROC; 
VAL6=NPRINT(ARG(1) ); GO TO EXPROC; 
VAL6=NREA0( ARG( D) ; GO TO EXPROC; 
VAL6=NEVAL(ARG(1) ,NIL) ; GO TO EXPROC; 
VAL6=N APPLY! ARG! 1) , ARG! 2 ) , N I L ) ; 

GO TO EXPROC; 

VAL6=NTRACE!ARG( 1) ); GO TO EXPROC; 
VAL6=NUNTRCE(ARG( I) ); GO TO EXPROC; 
VAL6=NADD1! ARG! 1) ) ; GO TO EXPROC; 
VAL6=NSUB1( ARG! 1) ) ; GO TO EXPROC; 
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/* AND */ A ( 5 8) : VAL6 = NAND(NARGS » F INDX ) ; GO TO EXPROC: 

/* OR */ A ( 59) : VAL6=N0R ( NARGS , FINDX ) ; GO TO EXPROC; 

/* CSETQ */ A <6 0) : VAL6 =NCS ETQ ( N AR GS , F INDX ) ; GO TO EXPROC; 

/* LIST */ A ( 61 ) : VA16 = LIST (NARGS »F INDX ) ; GO TO EXPROC; 

EXPROC: IF TR ACE1 =T THEN CALL PTR ACE ( FNCTN , V AL6, N I L , N IL , ONE , ONE ) 

TR ACE1 =F : 

RETURN! VAL6) ; 



END NPROC; 

/* LISP FUNCTIONS WHICH REQUIRE ACCESS TO CURRENT A-LIST */ 

/* LIST */ LIST: PROC ( L S ARG , ALS ) ; 

/* RETURNS A LIST OF ITEMS ON LIST LS ARG AFTER THEY ARF 
EVALUATED */ 

DC L ( LSARG »ALS) FIXED BIN; 

IF NCAR( LSARG) = QUOTE THEN RETURN! NCADR (LSARG )) ; 
RETURN! NEVLI S( LSARG, ALS) ) ; 

END LIST; 

LIST2: PROC ( L ARG2 » LARG3 ) ; 

/* RETURNS A LIST OF THE TWO ARGUMENTS */ 

DC L ( LARG2 »LARG3 ) ; 

RETURN! NCONS (LARG2 ,NCONS ( LARG3 , N IL ) ) ) ; 

END LIST2; 

LIST3: PROC ( L ARG4 , LARG5 , LARG6 ) ; 

/* RETURNS A LIST OF THE THREE ARGUMENTS */ 

DCL ( LARG4 » L ARG5 , LARG6 ) ; 

RETURN! NCONS ( LAP G4 , NCONS ( LARG5 , NCONS ( LARG6, N IL ) ) ) ) ; 
END LIST3; 

/* CSET */ NCSET: PROC ( SETOB , SETVAL ) ; 

/* PUTS APVAL INDICATOR ON PROPERTY LIST OF VALUE OF SETOB 
WHICH POINTS TO VALUE OF SETVAL */ 

DCL (SETOB,SETVAL,CST) FIXED BIN; 

IF NPR0P(SET09, APVAL, NIL)=NIL THEN 

CST=NRPLACD(LAST(NC DR (SETOB) ), NCONS (APVAL, 

NCONS (NCONS ( SETV AL, N IL ), NIL ) ) ); 

ELSE CST=NRPLACA(NGET( SETOB, APVAL) , SETVAL); 

RETURN! SETOB) ; 

END NCSET; 
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/* CSETQ */ NCSETC: PROC ( SET Q08 , SETQAL ) ; 

/* WORKS LIKE NCSET BUT THE FIRST 2 R GU ME NT IS QUOTED */ 

OCL (SETQQB*SETQVAL* SETQVAL1 , SETQAL ) FIXED BIN; 

S5TQVAL1 =NcVAL(NCADR(SETQOB) ,SETQAL) ; 

RE TURN (NCSET (NCAR(SETQOB) , SET OVAL 1 ) ) ; 

END NCSFTQ; 

/* AND */ NAND: PROC ( A NOLST , A ALS ) ; 

/* EVALUATE* EACH I TE m IN THE LIST ANDLST UNTIL ONE EVALUATE 
TO F OP NIL. RETURNS F IN THIS CASE OR T IF THE END nt 
THE LIST IS REACHEC */ 

DC L ( ANDLST, ANDL$T1,AND1 ,AALS ) FIXED BIN; 

ANDLST! =ANDLST; 

AMD: IF ANDLST1=NIL THEN RETURN ( T > ; 

AND1=NFVAL(NCAR( ANDLST 1) , A ALS J ; 

IF A ND1 =F | AND1 = N IL THEN RETURN! F) : 

AMDLST1=NCDR ( AN0LST1 ) ; GO TO AND; 

END NAI^D; 

/* OR */ NOR: PROC ( ORLST » OALS ) ; 

/* EVALUATES EACH ITEM IN THE LIST ORLST UNTIL ONE P V AL UA TFI 
TO SOMETHING OTHER THAN T. RETURNS T IN THIS CASE OR F 
IF ALL ITEMS EVALUATE TO F OR NIL */ 

DC L (DRLST.0RLST1 ,EVALOR,OALS ) FIXED BIN; 

CRLST1 =r| PL ST ; 

OR: IF ORLST 1 =NI L THEN RETURN ( F ) ; 

EVALCR=NEVAL (NCAR(ORLSTl) , 02 LS ) ; 

IF E VALGP-»=F THEN 

IF EVALOR-t = NI L THEN RETURN (T ) ; 

0RLST1=NCDR( 0RLST1 ) ; GO TO OR; 

END NOR; 

/* OLTPLT FUNCTIONS */ 

/* PRINT */ NPRINT: ENTRY ( XPP I N) ; 

/* PRINTS THE S-EXPRESS ION PASSED AS THE ARGUMENT */ 

DC L (XPRIN, DPI) FIXED BIN; 

PR BUFF = ( 128) ' * ; 

BUFFCON=NBLKS; 

DP1=NPRI N( XPRIN) ; 

DP1 = NTERPRI ; 

RE TURN ( XPRIN) ; 

NPRIN: PROC(KPRIN) RECURSIVE; 

/* PUTS REPRESENTATION CF S-EXPRESSION KPRIN IN PRINT BUFFER 



DCL (DUM1,DUM2,DUM3, JPRIN, KPRIN) FIXED BIN; 

IF NATOM ( KPRI N) =T THEN GO TO DP; 

JPRI N = KPRI N ; 

SUBSTR(PRBUFF,BUFFCON,l)=* ( • ; BUFFCON=BUFFCON+ 1; 
AP: DUM2=NPPIN(NCAR{ JPRIN) ) ; 

IF NCDP( JPRI N)=NIL THEN GO TO CP; 

SUBSTR ( PRBUFF, BUFFCON,l)=* •; BUFFCON=BUFFCON + l; 
IF NATCM( NCDR ( JPRI N) ) =T THEN GO TO BP; 
JPRIN=NCDR(JPRIN) ; 

GO TO AP; 

BP: SUBSTR(PRBUFF,BUFFCON,l)=*.* ; BUFFCON=BUFFCON+I ; 

SUBSTR( PRBUFF , BUFF CON , 1 ) = ' BUFFCON=BUFFCON+ 1; 
DUM3=NPRIN1 (NCDR( JPRIN) ) ; 

CP: SUBSTR(PRBUFF,BUFFCON,l)=» ) • ; BUFFCON=BUFFCON+l; 

RETURN(KPRIN) ; 

DP: DUM3=NPRIN1 (KPRIN) ; 

RETURN( KPRIN) ; 

END NPPIN; 

/* PRINI */ NPRINl: PROC(NPRN); 

/* PUTS PRINT NAME OF ATOM 'NPRN* ON PRINT BUFFER */ 
DECLARE 

TBUFF CHAR ( 14 ) STATIC, 

TBUFF1 CHAR ( 14) VARYING, 

TPBUFF CHAR ( 30 ) STATIC, 

LENGTH BUILTIN, 

CH CHAR ( I ) STATIC, 

( KPRN,NPRN,DPRN, PC,LC , L PR , LP R1 ) FIXED BIN ; 

IF NUMBERP(NPRN)=T THEN /* IS ATOM A NUMBER? */ 
DO; TBUFF=( 14) * •; 

TBUFF=FSTOR(NCDR(NPRN) ); 

PC = i • 

DO WHILE (SUBSTP (TBUFF, PC, !)=• •); PC=PC+1; 
TBUFF 1= SUBS TR ( TBUFF, PC, 15- PC) ; 

LC*LENGTH(T BUFFI ) ; 

SUBSTR( PR BUFF, BUFFCON, LC ) =T BUFFI; 
BUFFCON=BUFFCON+LC; 

RETURN( NPRN) ; 

END; 

LPR = I ; T PBUFF= ( 30 ) * •; 

KPRN=NGET( NPRN, APVAL ) ; /* CHARACTER OBJECT? */ 

IF NCAR(KPRN) <128 THEN GO TO NPRA; 
KPRN=NGET(NPRN,PNAME) ; 

NPRA : DO WHILE ( KPRN-»=NI L) X 

UNSPEC(CH)=SUBSTR(UNSPEC(FSTOR(KPRN) ),9, 8); 



END; 
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SU8STR(TPBUFF,LPR,1 )=CH; 

KPRN=NCDR(KPRN1 ; 

L PR=L PR+ 1 ; 

END; 

LPR1 =1 PR-1 ; 

IF ( LPR1 + BUFFC0N) >120 THEN DPRN = NTEP PR I ; 

SUBSTR( PR BUFF, BUFFCON, LPR 1 ) =SU BSTR ( T PBUFF , l,LPRl ) ; 
BUFFCON=BUFFCON+LPR1 ; 

RE TURN ( NPRN) ; 

END NPPIN1 ; 

/* TERPRI */ NTERPRI: PROC; 

/* PRINTS CURRENT CONTENTS OF PRINT BUFFER */ 

D I SPL AY ( PRBUFF ) ; 

PRBUFF=<128) * *? 

BUFFCON=NBLKS; 

RETURN ( NIL) : 

END NTERPRI ; 

PTRACE: PROC< FNAME, ARG1, ARG2,ARG3,NGS, 10 ) ; 

/* DISPLAYS TRACE INFO ON TERMINAL WHEN FUNCTIONS ARE 

ENTERED AND EXITED - WILL NOW WORK ONLY FOR FUNCTIONS WI 
LESS THAN FOUR ARGUMENTS */ 

DCL (ARG1,ARG2»ARG3»NGS»I0,LIM,LF) FIXED BIN, 

LENGTH BUILTIN, 

F NAME CHAR (30) VARYING; 

LF=LENGTH( FNAME) ; 

IF IC=1 THEN GO TO LEAVE; 

IF NBLKS>80 THEN DO; RECUR=R ECUR+1 ; NBLK S= 1; END; 

SUBSTR ( PRBUFF,NBLKS , 1 2 +L F ) =• CALL • f | FNAMEI I • « AR GS : • ; 
LIM=NTFRPRI ; 

LI M=NPPI NT ( ARG1 ) ; 

IF NG S = 1 THEN GO TO EXPTR; 

LI M=NPPI NT ( ARG2 ) ; 

IF NG S=2 THEN GO TO EXPTR; 

LI M=NPRI NT (ARG3) ; 

EXPTR: NBLKS = NRLKS+A ; 

RETURN; 

LEAVE: NBLKS=NRLKS-4 ; 

IF NBLKS<1 THEN DO; 

IF RECUR>0 THEN DO; 

RECUR=RE CUR-1; NBLKS=80; END; 

ELSE NBLKS=1; 

END; 

SUBSTR(PRBUFF,NBLKS, 13 +LF)=* VALUE OF * | | FNAME I I * IS:'; 
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LI M=NTERPRI ; 

LI P=NPPI NT (ARGl) ; 
RETURN; 

END PTRACE; 



END NEVALO; 
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/* LISPc: INITIALIZATION PONTINE */ 
INITIAL: PROC: 

DECLARE 

ACCUM CHAP ( 30) EXT, 

ALP8ASE BIN FIXED EXT, 

APPLY BIN FIXED FXT, 

APVAL BIN FIXED EXT, 

BLANK BIN FIXED EXT, 

BP BIN FIXED EXT, 

SNUM BIN FIXFC EXT, 

BUFFER CHAR ( 72) EXT, 

8UFFN0 BIN FIXED EXT, 

CADD BIN FIXED EXT, 

CHARSET C H4F (53) EXT, 

COMMA BIN c I XED EXT, 

COND BIN FI XED EXT , 

COUNT BIN FIXED FXT, 

CTR BIN FIXED EXT, 

DASH BIN FIXED EXT, 

DIGBASE BIN FIXED EXT, 

DOLLAR BIN FIXED EXT, 
c FSTOR BIN FIXED EXT, 

EXPR BIN FIXFC EXT, 

EQSIGN BIN FIXED EXT, 

EVAL BIN FIXED EXT, 

F BIN FIXED FXT, 

FEXPR BIN FIXED EXT, 

FNCTION BIN FIXED EXT, 

FREE BIN FIXED EXT, 

FSUBR BIN FIXED EXT, 

FLAG BIN FIXED EXT, 

F STOR ( 0 : 16000 ) BIN FIXSDI31) 
FUNARG BIN FIXED EXT, 

JJ BIN FI XED FXT, 

JK BIN FIXED, 

LABEL BIN FIXED EXT, 

LAMBDA BIN FIXED EXT, 

LCOUNT BIN FIXED EXT, 

LINE BIN FIXED EXT, 

LPAR BIN FIXED EXT, 

MF STOP BIN FIXED EXT, 

MODETAG BIT(l) EXT, 

NBASE BIN FIXED EXT, 



EXT , 
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NIL BIN FIXED EXT, 

NREAD ENTRY EXT, 

PERIOD BIN FIXED EXT, 

PLUSS BIN FIXED EXT, 

PNAME BIN FIXED EXT, 

QUOTE BIN FIXED EXT, 

RETAG BIT(l) EXT, 

REITAG BIT(l) EXT, 

RPAR BIN FIXED EXT, 

SLASH BIN FIXED EXT, 

STAC ( 200) BIN FIXED EXT, 

STAR BIN FIXED EXT, 

STKTAB BIT(I) EXT, 

SUBR BIN FIXED EXT, 

T BIN FIXED EXT, 

TCOUNT BIN FIXED EXT, 

VAR CHARI 10) VARYING, 

VAR 1 CHAR ( 1 ) » 

VAR2 BIN FIXED EXT; 

DISPLAY!* •); 

DISPLAY! *NPS LISP 1.5 MOD 1 INITIALIZING*); 

DISPLAY!* •); RETAG, RE1TAG=*0*B; 

MFSTOR=16000: NBASE=MFST0R-300 ; EFST0R»NBASE-1; 

DO 1=1 TO 127; FSTOR! I )=0 ; END; /* ZERO OUT 08LIST */ 

DO 1=128 TO MFSTOR-1; FSTOR ( I ) = I + 1 ; ENO; /* LINK UP */ 

FREE=1 28 ; FSTOR! MFST0R)=0; FSTOR! EFSTOR )=0; 

BNUM=MF STCR ; 

DO 1=1 TO 200; STAC! I ) =0; END; 

APPLY=1 030 ; EVAL=1018; 

CHARSET= * . $6*1 )-♦="• • : ;? ,/ ABCDEFGHI JKLMN0PQRSTUVWXYZ01 23456789 • ; 
ALPBASE= INDEX (CHARSET, *A* )-l; 

DIGBASE=INDEX (CHARSET, *0* )-l; 

LI NE »LCOUNT=l ; 

MODE T AG ,STKTAB='0'B; 

TCOUNT, BUFFN0=0; 

NIL=142; PNAME=135; APVAL=154; /* BOOTSTRAP VALUES */ 

BUFFER= 'PNAME NIL APVAL EXPR SUBR FEXPR FSUBR COND QUOTE £•; 

jk=nread; 

BUFFER= 'SLASH PLUSS DASH STAR BLANK EQSIGN COMMA PERIOD £•; 

jk=nread; 

BUFFER® 'DCLLAR RPAR L PAR 6'; 

JK=NREAD ; 

BUFFER® 'FUNCTI ON FUNARG LAMBDA LABEL F T FLAG £•; 

JK=NREAD; LINE=l; 
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BUFFER= ' CONS COR CAR EO ATOM CAAR CADR CDAR CODR C A A AR CAADR 

jk=nread; 

BUFFER= ' CADAR CDAAR CADDR COAOR CODAR CDDDR R PL AC A RPLACD f, 
JK=NREAD; 

BUFFER= ' NULL EQUAL APPEND COPY MEMBER PAIRLIS ASSOC S UR ? G' 
JK = NRE A'O ; 

BUFFER-' SUBLI S SASSOC NCONC ATTRIB SUBST PROP GET PAIR S'; 

jk=nread; 

BUFFER= 'NUMBERP EFFACE LENGTH LAST DEFINE DEFLIST CSFT f. • j 
JK=NRE AD ; 

BUFFER = 'R£MPROP FLAG REMFLAG REVERSE NOT £ • ; 

JK=NRE AD ; 

BUFFER= 'PRIM TERPRI PRINT READ FVAL APPLY £•; 

JK=NRE AD ; 

BUFFER= • TRACE UNTRACE ADDI SUB1 C'; 

JK=NREAD ; 

BUFFER* ' AND CR CSETQ LIST G ' ; JK=NR EAD; 

STKTABs'l ' R ; 

RETURN; 

INI T 1 s ENTRY ( I 1) ; 

DECLARE 

SWT( 10:20) LABEL! A1 ,A2, A3 ,A4,A5,A6,A7,A8,A9,A10, All ) 
INITIAL! A1,A2, A3, A4,A5,A6,A7, A8,A9,A10, All); 



GOTO SWT! 1 1 ) 



Al; 


VAR1= ' /' ; 


GOTO 


A12; 


A2 : 


V AR 1 = ' + ' ; 


GOTO 


A12; 


A3: 


VAR 1 = ' - ' ; 


GOTO 


A12 ; 


A4: 


V AR 1 = ' * ' ; 


GOTO 


A12; 


A5 : 


VAR 1 = ' '; 


GOTO 


A12; 


A6 : 


V AR 1 = ' s ' ; 


GOTO 


A12; 


A7 : 


VAR 1 = • , ' ; 


GOTO 


A12 ; 


A8 : 


VAR1 = ' . • ; 


GOTO 


A12; 


A 9 : 


VAR 1 =' t ' ; 


GOTO 


A12 ; 


A10 


: V AR 1= ' ) • 


; GOTO 


' A12; 



All : VAR1 =' ! • ; 

A 1 2 : L=UNSPEC ( VAR1 ) ; VAR 2= NCONS ( L ,N IL ) ; JJ=-1; RETURN; 

INITL: ENTRY(I2); 

/* SETS UP APVALS AND PROGRAM VARIABLE VALUES */ 

DECLARE LB ( 27 ) LABEL; 

GOTO LB! I 2) ; 

LB!1): PNAME=CADD; RETURN; 

LB ( 2 ) : NIL=CADD; VAR2 = NCONS (NIL, NIL); CALL SETAP(NIL); 

RETURN; 

LB( 3) : APVAL=CADD; RETURN; 

LB! 4) : EXPR=CADD; RETURN; 

LB! 5): SUBR=CADD; RETURN; 

LB! 6): FEXPR=CADD; RETURN; 
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LB( 7 ) : FSUBR=CADD; RETURN; 

LB( 8) : CCND=CADD; RETURN; 

LB < 9 1 : QUCTE=CADD; RETURN; 

LB(10): SLASH=CADO ; CALL SETAP ( SLASH) ; RETURN; 

LB(ll): PLUSS=CADD; CALL SETAP ( PLUSS ) ; RETURN; 

LB ( 12 ) : DASH=CAOD; CALL SETAP(DASH); RETURN; 

LB( 131 : STAR=CADD; CALL SETAP (STAR ) ; RETURN; 

LB( 14) : BLANK=CADD; CALL SETAP( BLANK) ; RETURN; 

LB(15): EOSIGN=CADD; CALL SET AP( EOS IGN) ; RETURN; 

LB( 16) : COMMA=CADD; CALL SET AP( COMMA) ; RETURN; 

LB( 17 ) : PERIOO=CADD; CALL SET AP ( PERIOD) ; RETURN; 

LB(18): DGLLAR=CADD; CALL S ET AP ( DOLLAR ) ; RETURN; 

L B ( 19) : RPAR=CADD; CALL SET AP ( RP AR ) ; RETURN; 

LB( 20) : LPAR=CADD; CALL SETAP(LPAR); RETURN; 

LB(21): FNCTIGN=C ADD; RETURN; 

LB( 22 ) : FUNARG=CADD; RETURN; 

LB ( 23 ) : LAMRDA=CADD; RETURN; 

LB( 24) : LABEL=CADO; RETURN; 

LB ( 25 ) : F =CADD ; M=NRPLACD( NCDDR ( F ) , NCONS ( APVAL , 

NCONS ( NCONS (NIL, NIL) » NIL ) ) ); RETURN; 

LB( 26) : T =CADD; VAR2 = NC0NS(T*NIL); CALL SETAP ( T ) ; RETURN; 
LB( 27) : FLAG=CADD; RETURN; 

RETURN; 

SETAP: ENTRY! SAPVL) ; 

DCL SAPVL BIN FIXED; 

M=NRPLACD (NCDDR! S APVL ) , NCONS! APVAL, NCONS ( VAR2 , NIL) ) ); 
RETURN ; 

INITL2: ENTRY (13); 

/* SET UP SUBR INDICATORS */ 

LM=NCDDR ( CADD ) ; 

M=NRPLACD(LM, NCONS (SUBR, NCONS (NCONS! 13* NIL )» N IL ))) ; 
RETURN; 

INITL3: ENTRY(I4); 

/* SET UP FSUBR INDICATORS */ 

L M=NC DDR ( CADD ) ; 

M=NRPLACD (LM, NCONS (FSUBR, NCONS ( NCONS ( 14, NIL)* NIL ) ) ) ; 
RETURN; 

END INITIAL; 
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LISPF: PROC; 



EXT. 

STATIC, 



/* LISPF: READER, DUMP, LOAD, AND GAR8AGE COLLECTER */ 
READER: ENTRY ( VAR , I NPT ) BIT(I); 

DECLARE 

ASCTR BIN FIXED EXT, 

ASNMBR BIN FIXED EXT, 

ASTAG BIT(l) EXT, 

BNUM BIN FIXED EXT, 

CARDNOl BIN FIXED(31,0) 

CARDN02 BIN FIXED(31,OJ 
CB32 B I T( 32) , 

DB32 B I T ( 32 ) STATIC, 

DTAG BIT(l) EXT, 

EFSTOR BIN FIXED FXT , 

ESTART BIN FIXEDI31) EXT, 

FREE BIN FIXFO EXT, 

1 FCB EXT, 

2 COMMAND CHAR<8) , 

2 FILENAME CHAR<8), 

2 FILETYPE CHAR ( 8 ) ♦ 

2 CARD NUMBER BIN FIXED(31,0), 

2 STATUS BIN FIXED(31 ,0) , 

2 CARD BUFFER CHAR(80) . 

F STOR ( 0 : 160U0) BIN F I XED < 311 EXT, 

FCTR BIN FIXED STATIC, 

I NPT CH AR { 72 ) , 

LC BIN FIXED STATIC, 

LCOUNT BIN FIXED EXT, 

NBASE BIN FIXED EXT, 

PI BIN FIXED STATIC, 

P2 BIN FIXED STATIC. 

PPTR BIN FIXED STATIC, 

PTR BIN FIXEDOl) STATIC, 

RTAG BIT( I) EXT, 

STOR ENTRY RETURNS ( BI T ( 11) , 

TCOUNT BIN FIXED EXT, 

TEMPBUFF CHAR (80) . 

TEST ENTRY RETURNS ( BIT ( 111 , 

TTAG BIT(l) STATIC, 

VAR CHAR( 25) VARYING, 

VAR 2 CHAR { 2 ) ♦ 

VAR4 CHAR ( 4 ) i 
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l: 
R2 : 



OUSAVE: 



TTAG* ' 0 ' B ; 

IF TCOUNT =2 THEN GOTO RI; 

I NPT* ' •; 

IF ASTAG THEN IF ASCTR*ASNMBR THEN 

00; D I SPLAY (VAR) REPLY ( INPT ) ; CALL OUSAVE; 

GOTO R2 ; 

END; 

01 SPLAY ( VAR) REPLY ( I NPT ) ; 

IF I NPT= ' END LISP* THEN RETURN (• 0 • B ) ; 

ELSE RETURN! • I • B) ; 

ENTRY; 



CALL TSAVE; 



IF -.DTAG THEN DO; FI LENAME* • AUTOL I SP • ; COMMAND*' FRASE' 
CALL IHEFILE(FCB) ; 

END; 

ELSE FILENAME*' DUMPLIS P ' ; F ILETYP E= • DATA* ; 

CARD BUFFER*"; ASCTR=0; LC=1; 

COMMSND='WRBUF' ; PTR * PPTR=5 ; CARDN02* 1 ; Pl*l; 

IF: IF FSTORILC+1 ) =FSTOR < LC ) +1 C 

FST0R(LC+2)=FST0R(LC+1)+1 THEN 

DO; UNSPEC(VAR2)=SUBSTR(UNSPEC(PPTR>,17, 16) ; 

CARD NUMBER*DIVIDE(Plt80,31t0)+l; 

IF C5fRD_NUMBER-.=CARDN02-l THEN 

00; TE M P BUFF*C A RD_ BUFFER ; TTAG* ' 1* B; END; 
CALL CLOSE; CALL OPEN; 

COMMAND* ' RDBUF ' ; CALL I HEF ILE( FCB) ; 

CALL CLOSE; 

I =CARD NUMBER*80; 

P1=80-TI-P1) ; COMMAND*' WRBUF' ; 

SUBSTR { CARD BUFFER *P1»2)=VAR2; P1 = PPTR; FCTR*0; 
CALL IHEFILl(FCB) ; 

IF TTAG THEN CARD BUFFER=TEMPBUFF; 

P2=LC; TTAG* 'O' B; 

DO WHILE(FST0R(LC+1)*FST0R(LC»+1 £ LC<15999); 
LC=LC+1 ; FCTR=FCTR+1; 

END; 

LC* LC+1 ; UNSPEC (VAR2)*SUBSTR(UNSPEC(FCTR ) , 17, 16) ; 
SUBSTR (CARD_BUFFER,PTR+2t 2 »=VAR2; PTR=PTR+A; 
PPTR=PPTR+4 ; IF -.TEST THEN GOTO R3; 

UNSPEC ( VARA )=UNS PEC (FST OR (P2) ) ; 

SUBSTR ( CARD_ BUFFER ,PTR,4I=VAR4; PTR=PTR+4; 

PPT R=PPTR+4 ; IF -.TEST THEN GOTO R3; 

END: 
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IF LC>16000 THEN IF -.STOR THEN GOTO R3; 
UNSPEC(VAR4)=UNSPEC( FSTOR(LC) ) ; 

SUBSTR ( CARO BUFFER ,PTR t 4 ) =VAR4 ; PTR=PTR+4; PPTR=PPTR+4; 
LC=LC+1; IF -.TEST THEN GOTO R 3 ; GOTO IF: 

R3 : COMMAND* • F I NUFD* ; CALL I HEF I L E ( FCBI : 1 = 1; RT AG= * 1 • B : 
CALL TEXTWRK ( I ) ; UNS P EC ( VAR4 ) *UNS PEC ( EST ART ) ; 

SUBS TR ( CARO BUFFER 1 10 ,4)=VAR4; RT AG= • 0* B; 
UNSPEC(VAR4T=UNSPEC(FREE) ; SUBSTR! CARD BUFFER, 20t 4>*VAR' 
UNSPEC(VAR4)=UNSPEC(EFST0R) ; SUBSTR(CARD BUFFER , 1 4, 4 ) =VAF, 
UN SPEC ( VAR4) =UNSPEC( BNUM) ; SU BST R ( CARD BUFFER , 30 , 4 ) = VAR< 
UNSPEC ( VAR4) =UNSPEC( LCOUNT ) ; SUBSTR ( CARD_BUFFER , 2,4)=VAF 
UNSPEC(VAR4) = UNSPEC( CARDN01 ) ; SUBSTR ( CARD BUFF ER, 6, 4 ) = VAF 
COMMAND=*WRBUF* ; CALL IHEF I L E ( FCB) ; COMMAND* • F INUFD • ; 
CALL IHEFILE (FCB) ; RETURN; 



CARD NUMBER=CARDN02; CALL IHEFILE ( FCB ) ; PTR=1; 

C ARDR02 =C ARDNC2+1 ; 

CARD_BUFFER=* * ; IF L016000 THEN RETURN( » 0 • B) ; 

ELSE RETURN! *1*B) ; 

TEST: ENTRY BIT(l) ; 

IF PTR=81 THEN 

IF -.STOR THEN RETURN (• 0 • B) ; 

ELSE RETURN! *1 • B) ; 

RETURN! • 1 • B> ; 

LOADER: ENTRY; 

COMMAND* • RDBUF • ; CARD NUMBER* 1 ; CALL IHEF IL E ( FCB ) ; 

IF STATUS=1 THEN DO; Ul SPLAY (• FILE NOT FOUND* ) ; RETURN; END: 
VAR 2 = SUBSTR ( CARD BUFFER ,1 ,2) ; DB32= ( 32 ) • 0* B; 
SUBSTR(DB32,17,lS)=UNSPEC!VAR2) ; PPTR=DB32; 

P1,PTR=5; P2=l; 

Li: DO WHILE! PTP<PPTR) ; 

VAR4=SUBSTR< CARD_BUFFER,P1 ,4) ; DB32=UNSPEC(VAR4) ; 
FST0R(P2)=DB32; 

P2=P2 + l; Pl = Pl+4 ; PTR=PTR+4; IF P 2=1600 1 THEN RETURN; 

IF PI =81 THEN DO; Pl=l ; CALL ROR; END; 

END; 

VAR2 = SUBSTR( CARD BUFF ER , PI , 2) ; DB32=(32)*0* B; 
SUBSTR(DB32,17»l5)=UNSPEC(VAR2l: PPTR=DB32; 

Pl = Pl + 2; VAR2 = $UBSTR( C A RD_ BUFFER ♦ P 1 1 2 ) » 



STOR: ENTRY BIT(l) 
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DB32=( 32) 'O'B; SUBSTR ( DB32 , 17 , 16 ) =UNSPEC ( VAR2 ) ; 
FCTR=DB32; LC=1; Pl=Pl+2; PTR=PTR+4; 

IF PI =81 THEN DO; Pl=l; CALL RDR ; END; 

VAR4=SUBSTR( CARDBUFFER»P1»4) ; 

UNSPEC(FSTOR< P2)T=UNSPEC(VAR4) ; PTR=PTR+4; Pl=Pl+4; 
IF Pl=81 THEN DO; Pl*l ; CALL RDR; END; 

DO WHILE! LC<=FCTR) ; 

FSTORIP2) =FST0R(P2-1)+1; P2«P2+1; 

IF P2=16001 THEN RETURN; LC=LC+1; 

END; 

GOTO LI; 

RDR: ENTRY; 

CARD NUMBER=CARD_NUMBER+1 ; CALL IHEFILE! FCB) ; 
RETURN; 

COLLECT: ENTRY; 

/* THIS IS THE GARBAGE COLLECTER */ 

DECLARE 

APVAL BIN FIXED EXT, 

CTR BIN FIXED EXT, 

EXPR BIN FIXED EXT, 

FEXPR BIN FIXED EXT, 

FSUBR BIN FIXEO EXT, 

II BIN FIXED STATIC, 

II BIN FIXED STATIC, 

JJ BIN FIXED STATIC, 

JOIN ENTRY! BI N FIXED) , 

L4 BIN FIXED STATIC, 

LL BIN FIXED STATIC, 

MARK ENTRY < BI N FIXED) , 

MEXPR ENTRY (BIN FIXED) 

MFSTOR BIN FIXED EXT, 

NUNSTK ENTRY EXT, 

NIL BIN FIXED EXT, 

PNAME BIN FIXED EXT, 

PNME ENTRY ( BI N FIXED) 

SUBR BIN FIXED EXT; 



P 2*P 2+1 



RETURNS! BIN FIXED), 



RETURNS ( BIN FIXED), 



DB32= • OOOOOOOOOOOOOOOO IOOOOOOOOOOOOOOO' B; 
11*1? /* II: OBLIST NUMBER */ 

Cl: IF NCAR ( 1 1 ) =0 THEN 
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IF 11=127 THEN GOTO C2 ; 

ELSE DO; 11=11+1; GOTO Cl; END; 

IF 11=128 THEN GOTO C2; 

L4 » 1 1 = NCDR (II); 

DO WHI LEI II— » = NI L) ; 

J J=NC AR (III; /* JJ: ATOM HEADER CELL */ 

LL=JJ; JJ=NCDR(JJ); CALL MARKILL); LL=JJ; 

IF NCARI JJ)=PNAME THEN JJ=PNME(JJ); ELSE 

DO; J J = NCDR ( J J ) ; CALL MARKILL); LL = JJ; JJ=PNME(JJ); ENO 

CALL MARKILL) ; LL=JJ; 

C3 : JJ = NCDR(JJ) ; CALL MARKILL); IF JJ=NIL THEN GOTO INC; LL=, 
IF NCARI JJ) =APVAL I NC AR I J J ) =SUBR | 

NCARI JJ)=FSUBR THEN 

DO; JJ=PNME(JJ); CALL MARKILL); LL=JJ; GOTO C3; END; 
IF NCAP I JJ) =EXPR | NCARI JJ) = FEXPR THEN J J = MEXPR I J J ) ; 
CALL MARK(LL); LL=JJ; GOTO C3; 

INC*. I l=NCDR III); CALL MARK I L4 ) ; L4=I1; 

END; 

11=11+1; GOTO Cl; 

C 2 s IF E START=0 THEN GOTO C4; LL , 1 1 = EST ART ; 

DO WHILE! I I -*=NI L ) ; 

I I = NCDP (II); CALL MARKILL); L L= 1 1 ; 

END ; 

C4 : LL » 1 1 =FREE ; 

DO WHI LEI FSTORI II )-=0) ; 

I I =F S TOR (II); CALL MARKILL); LL=II; 

END; 

CALL MARKILL) ; 

DO WHI LEI BNUM<=MFSTOR) ; 

FSTOR I BNUM) =BNUM+ 1 ; RNUM=BNUM+i ; 

END ; 

BNUM=B NUM-l ; II=EFSTOR; 

DO 1=128 TC NBASE-1 ; 

CB32 = UNSPEC(FSTOR( I ) ) £ DB32; IF CB32= I 32 ) * 0* B THEN 
CALL JCINI I ) ; 

ELSE DO; CB32=UNSPEC(FST0R( I ) ) £ 

•11 111 11 11 11 11 1110111 111111 111111*8; FSTOR 1 1 ) = CB32; 
END; 

END; 

EFSTOR-II; FST0R(II)=0; 

RETURN; 

MEXPR: ENTRY ( Ml ) BIN FIXED; 

DC L F BIN FIXED EXT; 
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M1=NCDR(M1>; M2=NCAR(Ml); 

MEl: M=N$TACK< V2) ; M2=NCAR(M2); 

DO WH I LE ( NATOM( M2)=F) ; 

M=NSTACK (M2) ; M2=NCAR<M2); 

END: 

ME2: L t M2=NUNSTK ; M2 = NCOR(M2); CALL MARK ( L ) ; L = M2; 

ME 3 : IF M2 = NIL THEN 

IF CTR=200 THEN RETURN(MI); 

ELSE DO; L»M2=NUNSTK; M2=NCDR(M2); CALL MARK (LI* L=M2; 

GOTO ME3 ; 

END; 

GOTO MEl; 

MARK: ENTRY ( J5 ) ; 

CB32=UNSPEC(FSTOR(J5) ) | DB32; FSTOR( J5)=CB32; 

RETURN; 

PNME : ENTRY ( J6) BIN FIXED; 

J6=NCDR ( J6 ) ; L2, J7=NCAR(J6) ; J7 = NCDR(J7); CALL MARK ( L 2 ) ; L2=J7; 
00 WHILE ( J7-*=NI L) ; 

J7=NCDR(J7); CALL MARK ( L2 ) ; L2=J7; 

END; 

RETURN( J6 ) ; 

JOIN: ENTRY ( J8) ; 

FSTORt I I ) =J8 ; IF 1 1 =EFSTOR THEN CALL MARK ( II); II = J8; 

RETURN; 

END LISPF: 
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E2C : J=J+l; 

END; 

1=1+1; IF NOD ( I ♦ 20 ) =0 THEN 

DO; DISPLAY! ' — CONTINUE?* ) REPLY ( VARA ) ; 

IF SUBSTR(VARA,l,l)='Y* THEN GOTO E2A; ELSE GOTO EA; 
END; 

GOTO E2 A ; 

END; 

E3 ; DO; 

DECLARE 

BP1 BIN FIXED STATIC* 

COMPARE ENTRY RETURNS ( BIT ( 1 )) t 
CHEK ENTRY RETURNS ( BIT ( 1 )) , 

CTR3 BIN FIXED STATIC, 

LE5 BIN FIXED STATIC, 

LEN BIN FIXED STATIC, 

LEN1 BIN FIXED STATIC, 

PTR1 BIN FIXED STATIC, 

PTR2 BIN FIXED STATIC, 

SCNA ENTRY RE TURNS ( BI T ( 1 )) , 

VARD CHAR ( 35 ) VARYING; 

VARA = • ' ; CALL SCAN; F I LENAME= • L IS PT EXT ' ; CALL CLOSE; 

IF TC OUNT =0 I SUBSTR(ACCUM,l,l)-.= '/' THEN GOTO ER3; 

PTR2= BP + 1 ; IF -.SCNA THEN GOTO EA; LEN=CTR3 ; 

BP1=BP; B P= PTR2 ; RTAG='1'B; LE5 = LE1 ; 

E3A: CALL TE XTWRK ( LE 5 ) ; 

LE 5=LE5 + 1 ; 

IF -.COMPARE THEN 

IF LE5>I El THEN DO; D I $PL AY ( • * E6A: FIELD NOT FOUND*'): 

GOTO EA; END; 

ELSE GOTO E3A; 

PTR2 = BP + 1 ; IF -.SCNA THEN GOTO EA; LEN1=CTR3; 

IF LEN1 >L EN THEN /* NEW FIELD LONGER THEN OLD */ 

DO; IF -.CHEK THEN 01 SPLAY ( ***E6B: TRUNCATED**'); 

DPTRl + LENl; J=80-I+ 1 ; K=PTR1+LEN; 

SUBS TR ( CARD BUFFER , I , J ) =SUBST R ( CARD BUFFER, K,J): 
SUBSTR(CARD“BUFFER,PTR1,LEN1 ) =SU BST'R C BUFFER, BP+1 , LEND ; 
END; 

ELSE IF LEN1-* = LEN THEN /* NEW FIELD SHORTER */ 

DO; I = PTR1+LEN1; K = PTR1+L£N; J = 80-K + l; L = 80-LEN+L EN 1 ; 
SUBSTR ( CARD BUFFER , I , J ) =SUBST R ( CARD BUFFER, K.J); 

SUBSTR! CARDlBUFFER,PTR 1, LEND =SUBSTR( BUFFER, BP+1, LEND: 
SUBSTR (CARD_BUFFER,L+1,LEN-LEN1)=' • ; 
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E2: DO 



E2B: 
E2A : 



DECLARE 

APVAL BIN FIXED EXT, 

CH CHAR ( l ) , 

CHR CHAR ( 5 ) VARYING, 

EXPR BIN FIXED EXT, 

FEXPR BIN FIXED EXT, 

FSUBR BIN FIXED EXT, 

KK BIN F I XED ( 31 ) , 

PL( 3) LABEL, 

PNA ME BIN FIXED EXT, 

SUBR BIN FIXED EXT; 

CALL SCAN; IF TC0UNT=0 THEN 

DO; DISPLAY! ’**E5A: ••TYPE** 

GOTO EA; 

END; 

IF SUBSTRIACCUM,1 , I I = • A* THEN DO; 

IF SUBSTR!ACCUM,1,1)=’F’ THEN DO; 

IF SU8STR!ACCUM,l,ll=’S’ THEN DO; 
DISPLAY! ’**£5B: "TYPE'' PARAMETER 
1 = 1 ; 

IF 1=128 THEN GOTO EA; JA=NCAR(I); 

IF JA =0 THEN DO; 1=1 + 1; GOTO E2A; END; 
KK=I ; J=1 ; 

DO WHILE! J<=JA) ; 

KK=NCDR ! KK) ; L=NCAR ( KK) ; GOTO PLtKJI; 



PARAMETER MISSING** • ) 



K J=l; GOTO E2B; END; 
KJ=2; GOTO E2B; END; 
kj=3; GOTO E2B; END; 
NOT RECOGNIZED**’); 



GOTO EA 



j NGET! L,EXPR)-=NIL 

;et!l,fexpr)-=nil 



I 



PL(1): IF NGET(L»SUBR) -«=N I L 
NGET(L, FSUBR) -»=NI L ING 
THEN GOTO E2C; IF NGET ( L , APVAL )=N IL THEN CHR=’ • 
ELSE CHR = ' APVAL * ; GOTO E2D; 

: IF NGET(L,SUBR) =NIL C NGET ! L .EXPR )=NIL 
IF NGET! L,SUBR)=NIL THEN CHR=’EXPR’; 

ELSE CHR= • SUBR • ; GOTO E2D; 

IF NGET! L,FSUBR)=NIL S NGET ! L ♦ FEXPR )=N IL 
IF NGET! L,FSU8R)=NIL THEN CHR=’FEXPR’; 

ELSE CHR= ’ FSUBR ’ ; 

L=NGET! L.PNAME) ; M=1 ; ACCUM=’ •; 

WHILE! L-*=NI L ) ; 

UNSPEC(CH) =$UBSTR ( UNS PEC !FSTOR(L) ) , 9, 8 ) ; 
SUBSTR(ACCUM,M,1) =CH; M=M+1; L=NCDR (L ) ; 

END; 

DI SPLAY ( ACCUM | |CHR) ; 



PL! 2) 



PL! 3) 



E2D : 
DO 



THEN GOTO E2C 



THEN GOTO E2C 
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IF SUBSTR! ACCUM,1 f 3)='RET' THEN RETURN; 

IF SUBSTR! AC CUM»1 » 1 ) = • R ' THEN GOTO E5; 

IF SUBSTR! ACCUM,1 ,COUNT ) = ' L I ST ' THEN GOTO E2; 

IF SUBSTR(ACCUM»1 » 1 ) = ' D ' THEN GOTO E4; 

D I SPLAY ( ' **E1 : EDIT CALL NOT VALID. TRY AGAIN**'); GOTO EA; 
El: DO; IF ESTART=0 THEN 

DO; DISPLAY! '**£2: NO S-EXPRESSION ENTERED**'); GOTO EA; E 
CALL SCAN; IF TC0UNT=0 THEN GOTO EA; IE=SUBSTR ( ACCUM, 1 , COUNT 
JE«l; IF RETAG THEN GOTO E1C; 

CALL SCAN; 

IF TC0UNT-i=0 THEN ■ 

IF SUBSTR! ACCUM,1 , COUNT )-=', • THEN GOTO ER1; 

ELSE DO; CALL SCAN; IF TC0UNT=0 THFN GOTO ER1; 

JE = SUBSTR (ACCUM.l, COUNT ) ; 

END; 

E 1C : FILENAME='LISPTEXT' ; CALL CLOSE; 

E IB : LN=ESTART; JE = IE+( JE-1) ; 

DO WHILE! I £<= JE ) ; 

DO WHILE(NCAR(LN)-.= IE) ; 

IF L N= N I L THEN GOTO ER2 ; LN=NCDDR ! LN ) ; 

END; 

LE=NCADR( LN) ; /* LE=L I NE NUMBER IN LISPTEXT */ 

R T AG= ' 1 ' B ; CALL TE XTWRK !L E) ; IE1,LE1 = LE; 

IF RETAG THEN 

DO; BUFFER=SUBSTR(CARD BUFFER t 9 , 72 ) ; REIT AG= ' 1 ' B ; 

BP=72; I NT AG = ' 1 ' B ; 

LE1 = NREAD; I El =NR EAD ; LN=NEVALQ ! LElt I El ) ; LN=NPR INT ( LN I 
RE1TAG='0'B; TCOUNT=2; GOTO E5A; 

END; 

DISPLAY ( CARD BUFFER ) ; LE=LE+1 ; 

IF LE=C ARDNOl THEN GOTO El A ; IE1=IE1+1; 

CALL GBUFF ; 

DO WHILE !SUBSTR(CARD_BUFFER»1»1)=' • fi STATUS=0); 

DI SPLAY! CARD BUFFER); 

IF LE=CARDNOl THEN GOTO El A; IE1=IE1 + 1; 

CALL GBUFF; 

END; 

IE=IE+1 J LN=E START ; 

END; I 

E 1 A : RTAG='0'B; GOTO EA; 

ER2 : DISPLAY! ***E3 ; S-EXPRESSION NUMBER NOT FOUND**' »; GOTO EA; 
ERl: DO; DISPLAY! '**E3A: FORMAT ERROR; PRINTING S-EXP NUMBER' ||IE 
GOTO El B ; FND; 

ER3: DISPLAY! '**E4: ILLEGAL EDIT COMMANO**'); GOTO EA; 

END; 
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L I SPG : PROC; 

/* THIS IS THF LISP EDITOR */ 
EOITOR: ENTRY; 



I 

DECLARE 

ACCUM CHAROO) EXT, 

BP BIN FIXED EXT, 

BUFFER CHAR ( 72 ) EXT, 

CARDNOl BIN FIXED<31,0) EXT, 

COUNT BIN FIXED EXT, 

ENDTAG BIT(l) EXT, 

F.RSTAG BIT(l) EXT, 

ESTART BIN F I XED ( 3 1 ) EXT, 

FSTOR ( 0 : L6000) BIN FIXED(3I) EXT, 
l FCB EXT, 

2 COMMAND CHAR(8) , 

2 FILENAME CHAR(8) , 

2 FILETYPE CHAR(8) , 

2 CARD NUMBER BIN FIXED(31,0), 

2 STATUS BIN FIXED(31 ,0) , 

2 CARD BUFFER CHAR (80) , 

IE BIN FIXED STATIC, 

IE 1 BIN FIXED STATIC, 

INTAG BIT(l) EXT, 

JE BIN FIXED STATIC, 

LE BIN FIXED STATIC, 

LEI BIN FIXED STATIC, 

LN BIN FIXED STATIC, 

NIL BIN FIXED EXT, 

NREAD ENTRY EXT, 

READER ENTRY! CHAR (25) VARY I NG , CHAR ( 7 2 )) RETURNS ( BI T ( 1 )) , 
RETAG BIT(l) EXT, 

REITAG BIT(l) EXT, 

R TAG BIT(l) EXT, 

TCOUNT BIN FIXED EXT, 

VARA CH AP ( 25 ) VARYING; 

DISPLAY! ' '); DISPLAY! 'EDIT LISP'); 

EA: VAR A= * •; IF -»READER( VARA, BUFFER ) THEN 

DO; ENDTAG= * I • Q ; RETURN; END; 

TCQUNT=2 ; BP=0; CALL SCAN; 

IF SUBSTRUCCUM,! ,1)='C' THEN GOTO E3; 

IF SUBSTR (ACCUM, l , I ) = * P * THEN GOTO El? 
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END; 

ELSE SUBSTR! CARD BUFFER, PTR1,LEN)=SUBSTR( BUFFER, BP + 1. li 
DISPLAY(CARD BUFFERT; LE5=LE5-1; RTAG=*0'B; COMM AND= • WR BUI 
CARD_NUMBER=tE5 ; CALL IHEF I LE ( FCB ) ; 

GOTO EA; 

END; 

SCNA : ENTRY BIT(l) ; 

Q TR 3 = 0 * 

DO WHI LE ( SUB STR(6UFFER,PTR2,1 )-='/' ); 

PTR2=PTR2+l; CTR3=CTR3+1 ; IF CTR3=36 THEN 

DO; DISPLAY! * **F I ELD TOO LONG***!; RETURN (• 0* B ) ; END: 

END; 

RETURN! *1 *B) ; 

COMPARE: ENTRY BIT(l) ; 

PTR1 = 2 ; VARD=SUBSTR( BUFFER, BP 1 + 1, LEN) ; 

DO WHILE! VARD-,= SUBSTR( CARD BUFF ER , PTR 1 , L EN ) f, PTR1+LEN<81 
PTR1=PTR1+ 1 ; 

END; 

IF VARD=SUBSTR( CARD_BUFFER,PTR1,LEN) THEN RETURN (• 1 • B ) ; 
ELSE RETURN! *0* B) ; 

CHEK: ENTRY B I T ( 1 » ; 

1=80; J=o; 

DO WHI LE! SURSTR!CARD_BUFFER,I » 1) «• ' £ J <=L EN 1-L EN ) ; 

1 = 1-1 ; J= j+ 1 ; 

END; 

IF J>=LENl-l.EN THEN RETURN (• 1 ' B ) ; 

ELSE RETURN! *0*B) ; 

E4; DO; 

DECLARE 

CADD BIN FIXED EXT, 

LOOKUP ENTRY! BIN FIXED) RETURNS (BIN FIXED), 

POSIT BIN F I XE D ( 3 1 ) EXT; 

E4A : CALL SCAN; IF TC0UNT=0 THEN GOTO EA; 

CALL HASH; IF LOOKUP! POSIT) <0 THEN 

DO; DISPLAY! ***E7: AT CM NOT FOUND***); GOTO EA; END; 

I =POS I T ; LEN=NCAR ( POSIT ) ; LEN1=NCDR (POSIT); 

DO WHILE! NCAR(LEN1 )-.=CADD) ; 
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I=LEN1 ; LEN1=NCDR(LEN1 ) ; 

END ; 

IF LEN=1 THEN 00; FSTOP (POS IT ) =0 ; GOTO E4A; END; 
LEN1=NRPLACD( I ,NCDR(LEN1) ) ; LEN=LEN-1 ; 
LEN1=NRPLACA(P0SIT,LEN) ; 

GOTO E4A ; 

END; 

E5: DO; 

RETAG= ' 1 * B ; GOTO El; 

E5A : RETAG='0*B; GOTO EA; 

END; 

GBUFF : ENTRY; 

CALL TEXT WRK ( LE ) ; LE=LE+1 ; 

RETURN; 

END L I SPG ; 
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LISPP: PROC; 

/* LISP PRIMITIVE (ELEMENTARY) FUNCTIONS */ 
DECLARE 

BFREE BIN FIXED EXT, 

BNUM BIN FIXED EXT, 

F BIN FIXED EXT, 

FREE BIN FIXED EXT, 

FST0R(0:16000> BIN FIXED(31) EXT, 

GBI6 B I T ( 16) STATIC, 

GB32 BI T ( 32 ) STATIC, 

GT1 BIN FIXED EXT, 

MFSTOR BIN FIXED EXT, 

NC BIN FIXED EXT, 

NIL BIN FIXED EXT, 

T BIN FIXED EXT, 

TRACE BIN FIXED EXT, 

TRCONS BIN FIXED EXT; 

NCONS : ENTRY(CNA,CNR) ; 

DCL ( CNA »CNB ) FIXED BIN; 

GB32=UNSPEC(CNB) : 

GB32=GB32 | SUBSTR ( UNSPEC(CNA) , 17 , 16 ) ; 
GT1=NCELL? 

FSTOR(GTl)=GB32; 

RETURN(GTl) ; 



NCELL : ENTRY: 

/* GETS THE NEXT AVAILABLE 
NC=FREE ; FREE=FSTOR( FREE ) ; 
RETURN( NC ) ; 



CELL IN FREE STORAGE */ 



NCAR : ENTRY(CA); 

DCL (CA) FIXED BIN: 
GB16=SUBSTR(UN$P£C(FST0R(CA) 1,1,16); 
GT1=GB16; 

RETURN(GTl) ; 

NCDR : ENTRY(CD); 

DCL (CD) FIXED BIN; 

GB16=SUB$TR( UNSPEC(FSTOR(CD) ) ,17,16) 
GT 1=GB1 6 ; 

RETURN(GTl) ; 
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NEQ: ENTRY ( JEQ » KEQ ) ; 

DCL (JEOtKEQ) FIXED BIN; 

IF NATOR! JEQ) =T THEN 

IF NATOM( KEO) =T THEN 

IF JEQ=KEQ THEN RETURN ( T ) ; 

IF NCOR ( JEO) >BNUM THEN 

IF NCDR(KEQ) >BNIJM THEN 

IF FSTOR(NCDR ( JEQ ))= FSTOR ( NCDR < K EO ) ) 
THEN RETURN (T ) ; 

RETURN! F ) ; 

NATOM: ENTRY! JAT); 

DCL JAT ; 

IF JAT>MFSTOR THEN RETURN ( F ) ; 

IF JAT = NI L THEN RETURN ( T ) * 

IF FSTOR! JATXO THEN RETURN (T ) ; 

RETURN! F ) ; 

NRPLACA : ENTRY! JCA,KCA) ; 

/* REPLACES CAR ( JCA) WITH KC A - VALUE IS JCA */ 

DCL (JCA,KCA); 

GB32 = *000000000000000011111 11111 111 II I* B; 

GB32=GB32 6 UNSPEC ( FSTOR ( JCA I) ; 

GB32 =GB32 | SUBSTR (UNSPEC ( KCA ), 17 , 16 ) ; 
FSTOR(JCA)=GB32; 

RETURN! JCA) ; 

NRPLACD : ENTRY! JCD,KCD) ; 

/* REPLACES CDR(JCD) WITH KCD - VALUE IS JCD */ 

DCL ( JCD « KCD ) ; 

IF JCD=N| L THEN RETURN(NIL) ; 

GB32=SUBSTP(UNSPEC(FST0R(JCD)),1»16) | UNSPEC(KCD); 
FSTOR! JC0)=GB32; 

RETURN! JCD) ; 

END LISPP; 
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APPENDIX D 



USING THE NPS LISP 1.5 VERS 1 SYSTEM. AN EXAMPLE 



EXECUTION BEGINS 

--FILES LISPTEXT AND DUMPLISP EXIST -- 

NPS LISP 1.5 VERS 1 INITIALIZING 

SPECIAL OPTIONS? 

_n 

CALL EVALQUOTE, ARCS: 

Load$ lisptext dumplisp 
LOADING LISPTEXT 
LOADING DUMPLISP 
CALL EVALQUOTE, ARGS: 

_revs (a b) 

VALUE IS: 

(B . A) 

CALL EVALQUOTE, ARGS: 

_count$ 

CELLS IN FREE STORAGE: 14509 

CELLS AVAILABLE FOR NUMBERS: 300 

CALL EVALQUOTE, ARGS: 

_dump$ 

CALL EVALQUOTE, ARGS: 

_col 1 ect$ 

CALL EVALQUOTE, ARGS: 



_count$ 

CELLS IN FREE STORAGE: 

CELLS AVAILABLE FOR NUMBERS: 

CALL EVALQUOTE, ARGS: 

_e$ 

EDIT LISP 
_P 1,3 

1 CONS (A B) 

2 DEFINE (( 

(REVS (LAMBDA (X Y) (CONS Y X))) )) 

3 REVS (A B) 

_c /a b/(a b) c/ 

3 REVS ((A B) C) 



14531 

300 



r 3 



100 



VALUE IS: 
(C A B) 



_ret 

CALL EVALQUOTE, ARGS: 
_dump$ 

CALL EVALQUOTE, ARGS: 

_end lisp 

EXIT LISP SYSTEM 

R; T=70. 62/32 . 68 19.47 01 
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GLOSSARY 



ATOM: 



A synonym for atomic symbol, the basic constituent of an 
S-expression. 

BYTE: 

A unit of the IBM/360 memory structure. The byte consists of 8 
binary digits (bits) and is one-quarter of an IBM/360 word. 

CODE-BYTE (C-BYTE): 

The first byte of the first line of file LISPTEXT. The 
C-byte is used to store certain codes used by the Supervisor 
to handle the system's special files. (See Section II.B.3.(b)) 

CRASH: 

A term which refers to the abrupt halt in service due to a 
malfunction in a time-sharing system. 

DOUBLET: 

A pair of S-expressions , arguments for the Interpreter function 
EVALQUOTE. 



DUMP: 



The action of copying LISP memory, including the making of 
copies of specific values and files needed to restore the LISP 
system to the state existing at the time of the dump. 

KEYWORD: 

A special word used in the files AUTOLISP and DUMPLISP to link 
and describe areas of condensed storage. The first 2 bytes of 
the keyword contain the address of the next keyword. The last 
2 bytes contain the number of words of FSTOR which were condensed 
(i.e., the number of adjacent words in the current section of 
FSTOR which contain sequential numbers). A keyword (other than 
the first) is always followed by a word containing the address 
of the first word of the condensed section. (See Section II. B. 3. 
(a)). 

OVERLORD: 

The Supervisor of the 7090 LISP system. 
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S-expression : 



Short for SYMBOLIC EXPRESSION. All data and all programs 
written in LISP 1.5 are in the form of S-expressions which 
are made up of either an ATOM, 'A', a dotted pair of atoms 
(A.B), or a dotted pair of S-expressions, ((A.B).C). 

S-EXPRESSION DOUBLET: 

See doublet. 
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